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OPERATOR'S MANUAL FOR MICRODENSITOMETER CONTROL PROGRAM 


I. Introduction 

The PDS-IOIOG microdensitometer is run under the control of a PDP-11 program 
called TRACE. This program gives the operator very flexible control over the 
machine functions,. Most commands are passed to the computer through either 
the Tektronix 4010 terminal or the teletype, as selected by the position of 
the LOCAL/LINE rocker switch above the 4010 keyboard. (LINE places the IjOlO 
in control; LOCAL transfers control to the teletype. In general, the tele- 
type is used when the operator desires a permanent record of the operator- 
computer dialogue.) A small number of control functions are requested by 
setting switches on the computer front panel. 


II. Starting the Computer 


1 . Turn the key on the computer front panel clockwise from OFF to POWER. 

2. Be sure that the disk LOAD/RUN switch is in the LOAD position. Move the 
disk OFF/ON switch to ON. Wait for the LOAD light to come on (about 10 
seconds). 

3. Move the disk LOAD/RUN switch to RUN. Wait for the RDY light to come on. 

4 . Be sure the HALT/ENABLE switch on the computer front panel is in the HALT 
position. ' 

5. Set the SWITCH REGISTER (switches numbered 0-17) to octal 773100 (up is 1, 
down i s 0 ) . 

6 . Press the LOAD ADDR switch. 

7 . Set the SWITCH REGISTER to octal 777406. 

8 . Move the HALT/ENABLE switch to ENABLE. 

9 . Press the START switch. The system will then identify itself on the 
terminal. 

Computer Shutdown Procedure 

1. Move the HALT/ENABLE switch to HALT. 

2. Move the disk LOAD/RUN switch to LOAD. You do not have to wait for the 
LOAD light. 

3. Move the disk QFF/ON switch to OFF. 

4 . Turn the POWER key to OFF. 
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III. Loading the Program 


1. After the system monitor has identified itself (DOS V08A), it prints a 
jj>, (DOS always uses $ to indicate that it is waiting for a command from 
the keyboard. All commands which the user types are terminated with a 
carriage return.) 

2. Type in today’s adte by typing DA , followed by the date in the format 

DD-MMM-YY . (Example: DA 23-JUN-73) The date must be given to the com- 

puter, because it is automatically added to the identification label on 
each data record. 

3. After DOS prints a $, type LO N g ,N u (*ere N g ,N u is your assigned user 
number) to log onto the machine. DOS then prints the date (which you 
specified in step 2) and a meaningless time. 

h. After DOS prints a $, type RU TRACE to load and run the densitometer 

control program, TRACE identifies itself and instructs the user to put 
the INCREMENT CONTROL SWITCH (on the densitometer interface panel) in the 
AUTO position. It then prints MONITOR on the terminal, followed by an 
asterisk. This indicates that it is waiting for an operator instruction. 


Note: The SELECT' switch on the densitometer control panel must be in 

AUTO and the motor power switches must be on before an attempt is made to 
move the carriage under computer control. 
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IV. Keyboard Commands 


When TRACE MONITOR prints an asterisk (*) on the terminal, the operator may 
issue a command hy typing one, or occasionally tvo, keys on the keyboard. 
TRACE ihen takes appropriate action. The following commands are currently 
available i 


COMMAND MEANING DESCRIPTION 

CTRL/C - Exit to monitor . IV. 1 

A - A-to-D converter test IV, 2 

B - Beginning of tape IV. 3 

C - Current coordinates .............. IV. If 

D - Diode calibration IV. 5 

F - Free disk blocks IV. 6 

Gn - Go to coordinate set n IV. 7 

H - go to Home IV.8 

I - Identification label IV.9 

K - Kill Autolok IV. 10 

Ln - Load coordinate set n IV. 11 

M - Message IV. 12 

P . - Playback IV. 13 

Q - Quick load coordinate set n IV. l4 

R ‘ - Rewind IV. 15 

S . . **■ Scan IV. 16 

T - Test scan IV. 17 

U - User-defined scan parameters ..... V 

X,Y - go to IV.18 

Z - Zero current coordinates IV. 19 
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TV.l: CTRL/C - Exit to monitor 

The effect of hitting C while the CTRL key (at the left-hand Bide of the 
keyboard) is depressed depends on the status of the program. 

If TRACE MONITOR has printed an asterisk on the terminal and is waiting 
for a keyboard command, CTRL/C causes program TRACE to terminate. Con- 
trol passes to DOS, which prints a $ on the terminal. To reload TRACE, 
see step 4 of Section III. 

If program TRACE is waiting for any other keyboard input, CTRL/C aborts 
that input and causes an immediate jump to TRACE MONITOR. A new command 
can then be given. 


IV. 2 2 A - A/D converter test 

The operator can get a direct reading of the 10 -bit A/D converter by giv- 
ing the A command. The decimal result is printed on the terminal. 


IV.3*» B - Beginning of tape 

A clean magtape must have a logical end-of-tape (double endfile) at its 
beginning before DOS can write on it. The B command will provide this 
formatting mark. (Magtape must previously have been specified as the 
storage device - see Section V.) 

It Is not necessary to write an endfile or end-of-tape after outputting 
data. DOS automatically provides these for you. 
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IV .4 : C - Current Coordinates 


After typing a C, you will be requested to supply the coordinates of 
the present position of the densitometer carriage. TRACE will print 

CURRENT X: 

on the terminal. The user then types in a decimal number of up to six 
digits, which may be preceeded by a minus sign. The number is terminated 
by hitting the RETURN key. TRACE then prints 

CURRENT Y: 

on the terminal. The user then supplies the value of the Y-coordinate 
in the same manner. Each time the RETURN is hit, the number just typed 
in should be displayed in the appropriate set of lights on the densi- 
tometer interface panel below the computer disk. 

Note: If you wish to current position to be the origin, i.e., 

coordinates (0,0 ), you can easily accomplish that by giving TRACE 
MONITOR the Z command (see Section IV -I9) . 


IV. 5: D - Diode calibration 

The current feeding the light-emitting diode should be calibrated before 
PLAYBACK mode is entered. Since the digital- to -analogue converter has 
an 8-bit register, it can accept digital inputs between 0 and 255. 

Thus , when 

DIODE CURRENT: 

is printed on the terminal, the user supplies a number in this range 
(terminated with a RETURN). The current which this number produces is 
indicated on the 3-digit lighted display on the densitometer interface 
panel. These values run between 0 and about 6.83. The user may use the 
GAIN and OFFSET controls near the display lights to produce required 
dynamic range. Since this process generally takes several tries, TRACE 
will continue to request diode current levels until the user hits the 
LINE FEED key, at which time control returns to MONITOR. 
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IV. 6 i F - Free disk blocks 


When the F command is used, TRACE prints on the terminal the number of 
blocks on the disk, out of a total of 1 * 800 , which are available for data 
storage. 


IV. 7: Gn - Go to coordinate set n 

When Gn (where n is an integer between 1 and 8) is typed, the carriage 
will move to the coordinates previously specified by the corresponding 
Ln command (see Section IV. ll). 


10 



IV .8: 


H - mo ve to Home 


Typing an H causes the densitometer carriage to move to its (0,0) 
position. The hell or heeper on the terminal is rung when origin has 
been reached. 


IV. 9 : I - Identification label 

The first record of each scan is a string of characters which serves 
to identify the scan. If the user has not specified a label, the string 
UNIDENTIFIED SCAN is used. Once the user specifies an ident string, the 
. most recent string specified is used. 

After the operator gives the M I" command, the message 
IDENT: 

is printed on the terminal. The user may then type up to to characters, 
terminating with a RETURN. Today ;t s date, as given to DOS with the DA 
command (see Section III, step 2), is automatically appended to the 
end of the label. 


Editing: The last character typed can be deleted by hitting the RUBOUT 
key. The deleted character will be echoed between slashes. Successive 
RUBOUT’ s are permitted. To restart the entire text, type CTRL/U (i.e., 
hit U while holding the CTRL key down. 
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IV. 10 : K - Kill Autolok 


If the operator wishes to manually move the densitometer carriage, he 
should first use the K command to disable Autolok, which keeps the 
carriage locked to a specified position. 


XV. 11: Ln - Load coordinate Bet n 

When Ln (where n is an integer between 1 and 8) is typed, TRACE will 
then request a pair of coordinates. Each of the coordinates may be up 
to six digits long, may be preceeded by a minus sign, and is terminated 
with a RETURN. The carriage will then move to those coordinates any 
time the corresponding Gn command is given. 


IV. 12: M - Message 

A message, or comment, may optionally be written out as the second record 
of a data file. A comment differs from the ident label in two important 
respects : 

a) The comment may be of virtually any length, and It may contain imbedded 
CR T s. The message is terminated with the LINE FEED key. 

b) The comment is written out only in the next data file. An ident string 
is written out in every data file. 

The message COMMENT} is printed on the terminal, after which the user may 
enter his comment. Editing is the same as described in Section IV, 9. 

Note: The message is stored in the program’s data buffer. When a scan is 

requested, the comment is written out onto the output file before the data- 
taking begins. However, any intervening operation which uses the data buf- 
fer will destroy the message. This Includes the P( playback), T (test scan) 1 
and F (free disk) commands. The message should be entered just before the 
S (scan) command is given. 
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IV. 13: P - Playback 


The P command is used to create a photograph from digital data. The 
light-emitting diode should have been previously calibrated (see Sec- 
tion IV- 5J* The TEST/OPERATE switch on the densitometer interface panel 
must be in the OPERATE position. The SCAN/PLAYBACK switch on the densi- 
tometer control panel must be in the PLAYBACK position. The LAMP switch 
on the control panel must be ON. 

The computer prints: SCALE FACTOR 

The user responds with a decimal number between 1 and 100, followed by a 
RETURN., The scale factor allows the user to magnify a frame up to 100 
times without' changing the film density. If a value N has been specified 
as the scale factor, each data value is used for N consecutive points, 
and each line is printed N times. Note, however, that the PTS/LINE and 
the number of LINES specified in the scan parameters refer to the direct 
data, not the scaled frame, TRACE handles the scaling. 

The computer prints: PARAMETER SOURCE? (K OR R) 

The user responds with one of those two letters. K means that the user- 
specified scan parameters have heen entered through the keyboard. R 
means that they are to be read from the input file. If K is typed and 
a complete set of scan parameters has not previously been typed in, 

TRACE goes' immediately to that routine (see Section V) . 

The computer then prints: FILE NAME: 

The user must now type the complete name of the input data file, termi- 
nating it with a RETURN. 

The computer then prints: TYPE ANY KEY TO CONTINUE 

Now darken. the room and place the unexposed film on the densitometer 
platten. Then hit any key on the keyboard to begin the playback. The 
bell on llie terminal is rung at the completion of the playback. 
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IV.I^J Qn - Quick load coordinate set n 


IV. 15 ; 


IV. 16: 


IV. 17: 


When Qn (where n 1 b an Integer between 1 and 8 ) is typed, the current 
coordinates are stored as destination set n. The carriage will return 
to its current position whenever the corresponding Gn command is given. 


R - Rewind magtape 

Magtape must previously have been specified as the storage device 
(see Section V) before this command can be executed. 

S - Scan 

The S command causes the densitometer to scan and digitize according 
to the previously entered user scan parameters. If a set of parameters 
haB not previously been entered, TRACE goes immediately to that rou- 
tine (Bee Section V). 

TRACE first creates and opens a uniquely-named data file. It then 
prints the file name on the terminal. If a new identification has 
been entered since the last time the S command Was used, the I dent 
label is also printed on the terminal. 

The densitometer carriage returns to the origin and the terminal bell 
rings at the completion of the scan. 


T - Test scan 

A test scan is identical to a data scan (section IV.16) except that 
an output file is not created. 



IV. 18: X,y - go to 

These commands can be used to move the carriage to any location. MONITOR 
prints a message requesting the destination. The user then types a deci- 
mal number which may be preceeded by a minus sign and is terminated with 
a RETURN. The carriage will immediately move to the requested position. 
Note that the use of one of these commands does not obligate you to use 
the other also. 


IV. 19: Z - Zero 

The Z command causes the current position of the carriage to become the 
origin. It. does not move the carriage. 
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V. User-Defined Sean Parameters 


The parameters which control the densitometer scan are entered by means of a 
dialogue with the computer. In the dialogue which follows, the symbol (CR) 
means that the user terminates his input by hitting the RETURN key. The steps 
marked with an asterisk are omitted if a line scan (pattern L) has been requested. 
(See section IV. 9 for editing rules.) 


COMPUTER USER - 

X-DIR R for right, or L for left. This refers to the scan direction on the 

film, not the direction in which the carriage moves. 

Y-DIR F for front, or B for back. This refers to the scan direction on the 

film and is the same as the direction in which the yoke moves. 

PATTERN E (edge scan): All lines traced in the same direction. 

B (boustrophedonie) : Alternate lines traced in opposite directions. 

R (raster): Same as B, but data order is reversed for even-numbered 

lines, so data look as if edge scan was performed. 

L (line scan): Scan will be series of arbitrarily positioned lines. 

DELTA X The distance between digitized points, in microns (CR). 

PTS/LINE The number of points digitized on each line (CR), 

Y STEP* The distance between lines, in microns (CR) . 

LINES* The number of lines in each frame (CR). 

The user specifies a pair of numbers which will be the starting 
coordinates of a frame. Each number may be up to six digits long and 
may be preceeded by a minus sign (CR). Up to 32 coordinate pairs may 
be specified. Each pair will be the starting coordinates of a differ- 
ent, Identically shaped frame. All such frames will be , scanned when 
the scan command (S) is given to TRACE MONITOR, and all of the data 
will be put in one data file. The computer continues to request 
coordinate pairs (up to 32) until the user types the LINE FEED key. 
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FRAME n 
X = 

Y = 
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The first time the U command is given to TRACE MONITOR, the entire dialogue 
described above is carried out. Any additional U commands cause the computer 
to print OPTION:, and the user responds with one of the following: 

U - Complete dialogue 

X - X-direction 

Y - 'Y-direction 

P - Pattern 

DX - Delta X 

DY - Y Step 

NP - Points per line 

NL - Lines per frame 

C<CR> - Change all starting coordinates 

CN - Change a particular pair of coordinates 

CX - Set all X- start coordinates to the same value 

CY - Set all Y-start coordinates to the same value 

B - Backup 

F - Fortran compatibility 

L - Letter for output filename 

M - Storage medium 

S - Scale increment switch 

V - Speed 

E ~ Exit to TRACE MONITOR 

# - Number for output filename 
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If the requested option is part of the complete dialogue shown above, the 
appropriate piece of the dialogue will be carried out. (if DELTA. X is specified, 
PTS/LINE will also be requested by the computer. ) The other options work as 
follows : 


OPTION COMPUTER 

CN FRAME 


X= 

Y= 


B BACKUP? 


F FTN I/O? 


CX 

CY 


USER 

The user types a. one or two digit number <CR> which 
must not exceed the number of frames previously 
specified in the complete dialogue. The computer 
will then request a single pair of coordinates, 
which the user provides <CR>. 

The user types in a coordinate <CR> which will be 
used as the X- start or Y- start coordinate for all 
of the requested frames. 

Y or N. Requesting BACKUP means that the specified 

X- start coordinate will be interpreted as the middle 
of the scan line rather than the beginning of it. 
Default: NO. 

Y or N. Should the data be written out in PDP-11 

Fortran -compatible form, or in a somewhat simpler 
format? Default: YES. (See Section IX for details.) 


L SERIES LETTER: The user types a single letter. This will be used 

as the first character of the output filename.' 
Default: A. (See Section VIII for details.) 

M STORAGE D (disk) or M or T (tape or magtape). This is the 

device on which the data file will be created or 
found. Default: DISK. 
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OPTION COMPUTER USER 


S ThiB sets the scale increment step to unity. This pro- 

vides slightly better positional accuracy but may slow 
down the scan speed. (See Section VII for details.) 

V SPEED The user types in a number between 1 and 255 (CR). The 

computer will reject the number if it is above the 
maximum speed allowed for the specified DELTA X and 
line length. (See Section VII for details.) 

# NUMBER: The user types in a number between 0 and 99 (CR). The 

number will be used as the number part of the data 
filename the next time a data scan is made. Note that 
changing the series letter automatically resets the 
number to unity. 


Nite that all parameters remain set until they are changed. They do NOT revert 
to their default values. 
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VT. Sense Switch Options 


A few functions can he invoked by setting (lifting) switches on the computer 
front panel. The currently available options are: 

Switch 0 - Runaway control 

Occasionally, the densitometer looses track of where it is and begins 
to run away. Setting switch 0 will stop the motors. When the switch 
is reset (down), the carriage will head fro its original destination, 
unless switch 4 has also been set. In that case, control transfers to 
TRACE MONITOR. 


Switch 3 - Display data 

At the end of any line, the data in the data buffer (up to the first 
300 points) will be printed on the terminal if switch 3 is set. At 
the first such request in a scan, DISPLAY REQUESTED is printed on the 
terminal, and the computer waits until any key on the keyboard is 
hist. This is to give the user time to record the file name. After 
that, the screen is automatically cleared (if the 4010 terminal is 
being used) and the data is displayed. The data is held on the screen 
and the scan is stopped until any key on the keyboard is hit. 


Switch 4- - Abort scan 

At the end of any line, the entire scan will be terminated and the data 
file closed if switch 4 is found to be set. The message SCAN ABORTED 
is printed on the terminal. 


► 
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VII. Scale Increment and. Carriage Speed 


While the densitometer carriage is capable of moving up to 200,000 microns/sec., 
the interface electronics are able to count no more than 50,000 position encoder 
pulses per second. Therefore, a SCALE INCREMENT switch is provided which allows 
the interface to see each pulse (l), every other pulse (2), or every fourth pulse 
(4-). Since the densitometer knows its position to only within a scale increment, 
a setting of 1 must be used if extreme positional accuracy (i.e., ± one micron) 
is required. Note that the distance between points is equally accurate at all 
settings . 

When the INCREMENT CONTROL switch on the densitometer interface panel is in the 
MANUAL position, the scale increment is set with the SCALE INCREMENT switch to 
its left. When the INCREMENT CONTROL switch is in the AUTO position, scale 
increment selection is handled by the computer. The AUTO position must be used 
when PROGRAM TRACE is running, and the MANUAL position must be used when it is 
not. 

PROGRAM TRACE selects the largest scale increment compatible with the user- 
supplied DELTA X. It then chooses the optimum carriage speed, which is deter- 
mined by the scale increment and by the length of the scan line. The use can 
minimize the time required to scan a frame (particularly a large one) by choosing 
a DELTA X which is evenly divisible by 4, 


PRECEDING PAGE BLANK NOT FILMED 


23 



VIII. Input/Output Structure 


Program TRACE has been written to run under the control of the PDP-11 disk 
operating system (DOS). Thus, the file structuring and read/vrite operations 
are handled automatically by DOS and need not concern the user. The file struc- 
ture has been designed to meet the requirements of disk storage, but it is also 
fully compatible with direct transfers to or from magtape. 

When the user requests a data scan (S command), the system first creates a uni- 
quely named file. The filename consists of a letter and a one or two digit num- 
ber, followed by the extension .DAT. Thus, a typical filename might be B37*^T. 
The user can specify the letter by using OPTION L (see Section V). The number 
is automatically reset to unity when a new series letter is requested. 

All filenames in a user’s directory must be unique. If the program attempts to 
ci-eate a file which already exists, the attempt will fail. However, the program 
has a built-in facility for searching for unused names. It first tries changing 
the number, then the letter. Since there are 26 x 99 possibilities, success is 
assured. If the data file has a different name than you expected, it is probably 
because a conflict occurred. 

If the disk is being used as the primary storage device, some care must be taken 
not to fill it up.. Especially if large data arrays are being stored, the disk 
should be purged fairly often. The data files should be transferred from disk 
to magtape, after which they should be deleted. Both operations are done by 
program PIP. PIP will also tell you how much disk space (in blocks) is free if 
you give it the '/PR switch. The disk holds a total of 1*800 blocks. 
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IX. Data Format 


The data are stored on the disk in formatted binary linked . file s . At the user*s 
option, the records can he -written in Fortran- compa table (hereafter abbreviated 
as FC) or non -Fortran -conrpatable (NFC) form. MFC records are somewhat simpler 
and are recommended if the user plans to process his data with an assembly 
language program or at a facility where the Fortran file structure differs 
from that of the PDP-11. If processing is to be done with PDP-11 Fortran, FC 
form is strongly recommended. (Note: only one word is allotted per variable, 

so compile your Fortran programs with the /ON switch.) 

In FC form, the first word in each record (as read by Fortran) is a code word 

indicating the contents of the record. In NFC form, the first word is meaning- 
less and the second, word Is the code word. In both cases, the next word is a 
"word count" (WC) word which contains the number of data words to follow (not 
including itself). 

The first logical record contains the identification label. Its code word con- 
tains a 1 if a comment block does not follow, or a 4 if a comment block does 

follow. The WC word is followed by 31 words, each containing two ASCII charac- 

ters.. The actual' ident string terminates with <carriage return> <line feed> 
characters, and the rest of the words are filled with zeros. 

If a comment block is present, it is the second logical record, and its code word 
contains a 2. Again each word contains two ASCII characters. 

The next record, having a code of 3, contains the scan parameters. See next page 
for details. 

Each of the remaining logical records contains the data from one scan line. Its 
code word contains the negative of its line number within its frame. Thus, the 
code word for the. first line in each frame contains a -1, the second line a -2, 
etc. Note that a data file may contain more than one frame. 
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The arrangement of data in the scan parameter record is as follows: 


Word No . 
1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
n 
12 
13 

14-4-5 
46-77 
78-109 
110 -l4l 


Function 
Points per line 

X - direction (0 for left, -1 for right) 

Y - direction (0 for front, -1 for hack) 

Delta - X 

Y - step 

X - distance* 

X - distance** 

No. of lines per frame 

Scan pattern (0 for edge, -1 for raster, +1 for line) 
Scanning speed 

Backup? (0 for NO, -1 for YES) 

No. of frames (2n-2, where n is the actual no. of frames) 
Fortran - compatahle? (0 for YES, -1 for NO) 

X - start coordinates* 

X - start coordinates** 

Y - start coordinates* 

Y start coordinates** 


* Low half of double precision number 

** High half of double precision number 
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CONTRL MACRO VR cj5 A 10-APR-7 4 #1*2 q PAGE 1 


* 1 .TITLE CONTRL 

2 ; 6 FEBRUARY i9?4 

3 tLOCKHEED SOLAR OBSERVATORY* RYE cANyON* CALIFORNIA 

4 :0PERATING SYSTEM FOR MODEL 10i0G( MODIFIED) DENSITOMETER 

5 tVERSloN 3 • 

0 


7 

. GLOBL 

SETUP » IDENT ,COmENt*MFEAG»DMOVE*SeTDuN* IDCODE 

8 

.globl 

IDBUF,R0CHAR»LSTCHR * HOME* ERA* ABC ,NW0RDS*DATA 

9 

.globl 

NEGOK ,CRLF *MESaGE,RDASC*RDaSC2*S.EXEC *P*EXEC 

10 

.GLOBL 

IDHEAD *C block * TOOL RG , MON * LD V AL ’ T STSCN * dE V IC E 

11 

• globl 

DEL A Y ♦ GO . X * GO • Y * Sw I TC H * xGOL * YgOL * XNOWL * YNOWL 

12 

. GLOBL 

iflag .rdval 

13 

.mcall 

•EXIT , •OTCVT* •BIN2D*.REGS*.RSTHT* .INIT* .RLSE 

14 

.mcall 

•TRAN, .WAIT 

15 

.REGS 


16 



17 

LF = l2 


18 

C R 3 1 5 


19 

SPACE 3 

40 

20 

RUBOUT 

= 1/7 

21 

TPSrl775&4 

22 

TPB=17756^ 

23 

ADSrl6705« 

2 4 

ADC=16 7 052 

25 

motors 

= 167000 

26 

D A C -167 07;> 

27 

0«llA= 

l77s22 

28 




29 .MACRO ASK TEXT 

30 MOV «*.ERA 

31 jSR R 5 * MES AGE 

32 .BYTE CR’LF 

33 . A SC I 2 STEXT* 

34 .EVEN 

35 .ENDM 

36 

37 .MACRO MSG TEXT 

38 MOV a . ,ERA 

39 JSR R5,MESAGE 

40 . ASC I 2 *TEXT* 

41 .even 

42 .ENDM 
4 3 

44 .MACRO ECHO CHAR 

45 TSTb TpS 

46 BPL .“4 

47 MOVB CHARYTPB 

48 .ENDM 


•ERROR RETURN AdDRESS 

•type out message 
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CONTRL MACRO VRgSA 10-APR~74 «i:2q PAGE 2 
monitor 

1 .sbttl MONITOR 

2 


3 

monitr; 

MOV Sp, STACK 


4 


MOV SWITCH* DR l^A 

sInitialize increment switch to 

5 


ASK <PROGRAM TRACE> 


6 


ASK < VpRS I ON 3B> 


7 


ASK <SeT ♦ INCREMENT 

CONTROL* SvgITcH TO AUTO> 

B 

9 


.RSTRT MON 

;SET RESTART ADDRESS 

1 0 

moms 

JSR P C » C R L F 


1 l 


ask <monitor> 


12 




13 

S T A R * 

MOv ST A c k * sp 

iRESET stack POINTER 

14 


ASK <* > 


15 


MOv 1 MFLAG 

•char request comes FROM MONITOR 

16 


JSR PC.RDCHAR 

: GET A COMMAND LETTER 

17 


CLR MFLAG 

•MONITOR REQUEST SATISFIED 

18 


MOV »2.3*«R0 

•ONLY 23 RECOGNIZED ChARS 

19 




20 

2* • 

CMPB Ri*SYMBoHR0) 

: is char in table? 

21 


beq shift 

: IF 50, BRANCH 

22 


sob R 0 * 2 

•CHECK ANOTHER CHAR 

23 




24 

what: 

ASK <WHAT?> 


25 


br star 


2 b 




27 

Shift : 

DEC R0 


28 


ASL R0 

• MAkE R 0 A WORD OFFSET 

29 


JSR PC » elf OMAnD < R0 ) 

•GO TO PROPER ROUTINE 

30 


BR STAR 

•get next instruction 

31 




32 




33 




34 

Symbol : 

.ASCII ABCDEFGH t KLMPORST UX YZ / 

35 


.BYTE 3 * T 5 

•CTRL/C *CR 

3b 


.even 
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CONTRL MACRO VR«5A 10-APR-7 4 0i:2g PAGE 3 

H^TTQR 


i com and: 

ADCCHk 

2 

EOT 

-5 

origin 

4 

diode 

5 

do*e 

6 

FREE 

7 

gotoxy 

8 

HOME 

9 

IDEnT 

10 

clear 

11 

LOAdXY 

12 

coment 

13 

P.EXEC 

1 *4 

QLOaD 

15 

do*r 

16 

S • EXEC 

17 

TSTSCN 

18 

SETUP 

19 

goto*x 

20 

GOTO. Y 

21 

zero 

22 

EXIT 

23 

NOVA 
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CONTRL MACRO VR05A 10-APR-74 «ll2q PaGE' 4 
EXECUTE MONITOR commands 

1 .SbtTL EXECUTE MONITOR COMMANDS 


2 


3 

exit: 

MOV «6f|00, MOTORS 

4 


clr DR 1 1 a 

5 


.Exit 

6 

7 

DO.E : 

jsr pc.rdchar 

8 


CMP R1*«!f 

9 


BNE IT 

1 0 


MOV 86 f C ODE 

11 


br comply 

12 

1 3> • 

CMP R1 , 8 ' T 

13 


BNE WHAT 

14 

EOT: 

MOV 8 ltf * C ODE 

15 


bR comply 

16 

17 

do.r: 

MOV «1?» CODE 

18 

comply : 

JSR PC,CRLF 

19 


JSR R5,3DEVICE 

20 

code : 

0 

21 

nova : 

RTS Pc 

22 

23 

GOTO *x : 

ASK <X DESTINATION: 

24 


MOV 8 -i ♦ NEGOK 

25 


JSR PC,RDASc? 

2 b 


MOV R 3 * X GOL 

2 7 


MOV R2 , XgoL + p 

28 


jsr Pc * go . x 

29 


BR beep 

30 

31 

goto • y : 

ASk < Y DESTINATION: 

32 


MOV 8 - 1 *NEGOK 

33 


JSR PC,RDASC? 

34 


MOV R3 * Y GOL 

35 


MOV R2,YG0L+2 

36 


jsr pc.go.y 

37 

beep: 

ECHO 8 7 

38 


rts pc 

39 



40 

origin: 

ask <CURRENT x: > 

41 


MOV 8 * 1 , NEGOK 

42 


JSR PC,RDaSC? 

43 


MOV 8 2 0 » R i 

44 


JSR PC*LDVAL 

45 


CLR R0 

46 


JSR PC*LDVAL 

47 


mSg <current y: > 

48 


MOV 8-1 , NEGOK 

49 


JSR PC, RDASC 2 

50 


MOV 86 fl*Ri 

51 


JSR PC , LOVAL 

52 


MOV 84 a *R i 

53 


JSR PC,LDVAL 

54 


RTS PC 


: Dl SABLE AUTOLOK 


: GET 2nd LFTTER 

• ENqP IlEC 

•IF Not* BRANCH 

jIf so* set function code 

i End of tape? 

: I F NOT* ERROR 
i I F so, SET FUNCTION CODE 


•REWIND FUNCTION code 
:ExeCUtE FUNCTION 


jNEG COORD is legal 

;BIG number IS ok 

•STORE NUMBER As DESTINATION 

: MOVE to DESIRED X. COORDINATE 


tSAME PROCEDURE FOR Y 


•MOVE TO dESiREd Y-COONDINATE 


:Neg coord is legal 

: B Ig NUMBER IS OK 

jlNDlCATE x-display register 
:LOAD number AS CURRENT COOrd 
jINDICATE X “UPPER LIMIT register 
: Autolok may need it 


•INDICATE Y“DISPLaY REGISTER 

! INDICATE Y-uPPER LIMIT REGISTER 
iLOAD it FOR autolok 
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ONTRL MACRO VR 05 A 10-APR-74 01?2q PAGE 5 


XECIJTE MONITOR COMMANDS 


!i zero * 

CLR R2 

2 

CLR R 3 

3 

MOV «4,R4 

4 

CLR R1 

5 1$* 

JSR PC.LDVAL 

6 

ADD 82a,Rl 

7 

SOB R 4 , 1 S 

8 

MOV «4*R0 

9 

MOV « XnOWL *Rl 

10 

MOV «YN0WL*RP 

11 2*! 

CLR ( R 1 ) + 

12 

CLR <R?) + 

13 

SOB R 0 * 2 $ 

14 

MOV &6fl0 0 * MOTORS 

IS 

RTS PC 

16 


17 loadxy: 

JSR PC * RDNUM 

18 

ASK <X* > 

19 

JSR PC * IS 

20 

msg < y • >■. 

21 IS* 

M OV R1,-ISR) 

22 

MOV 8 ** 1 *NEGOK 

23 

JSR pc,rdasc? 

24 

MOV ( SP ) 4 t R1 

25 

MOV R 3 , ( R 1 ) + 

26 

MOV R2,<Rl>+ 

27 

rts PC 

28 


29 gotoxy: 

JSR PC, RDNUM 

30 

MOV (Rl)+.XGOL 

31 

MOV ( R 1 ) + ♦ X.GOl- 4 2 

32 

MOV ( R 1 ) + » Y GOL 

33 

MOV ( R 1 ) * YGOL+2 

34 

jSr pc*dmove 

3b 

bR beep 

3b 

37 OLOADs 

JSR PC « RDNUM 

38 

MOV R1,R0 

39 

MOV »20tRl 

40 

jSR PC.l* 

41 

MOV 860 *Rl 

42 1$: 

MOV R0,“(SP) 

4 3 

JSR PCfRDVAL 

44 

MOV ( SP ) + , R0 

45 

MOV R3, (R0 ) + 

46 

MOV R2 , ( R0 ) + 

47 

RTS PC 

48 

49 RDNUM: 

jSR pc,rdchar 

50 

SUB 861 * R 1 

,51 

BGE 2$ 

! 52 1$. 

JMP WHAT 

53 2$J 

CMP Rl,«7 

54 

bgt is 

55 

ASH 83, Rl 

56 

ADD 8G0BUF * R 1 

57 

rts pc 


jSpecify 0*0 as the 

CURRENT COORDS 

• SET INDICATOR FOR XUL < 0 >* 
. XDlSP (20) » YUL <40) * 

; AND YDlSp (£> ) * ANO 

• load the registers 


. make the current ano destination 

• COORDINATES ZERO 
•TURN aUTOLOK OFF 


•GET NUMBER OF COORD PAIR 

•READ and STORE X-cOORD 
:D0 same for y-coord 
•save buf pointer on the stack 
sNEGATlVE coord is legal 
; S 0 IS BIG NUMBER 
•.restore bUF POINTER 
•STORE LOW HALF OF COORD 
• AND HIGH HALF ALSO 


• GET NUMBER OF COORD PAIR 
•R1 IS buffer pointer . 


; GO TO DESIRED LOCATION 

•ring the bell 

• GET NUMBER OF COORD PAIR 
•MOVE BUFFER POINTER TO R0 

•indicate X‘dISPLAY register 
iREAD and STORE X-cOORD 
: IND I C ATE Y^oISPLAY REGISTER 

: save buffer pointer on the stack 
•read the indicated display reg 
•restore the buffer pointer 
t store low half ,OF COORD 
; and high half ALSO 


•INPUT A CHAR 
•convert TO BINARY ( N-l ) 
jlN-1) MUST NOT BE NEGATIVE 
•ERROR MESSAGE 

• ( N-»l ) MUST NOT EXCEED ? 

* BR IF ERROR 

•CONVERT to 4-WORD offset 
•POINT TO BUFFER 
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CONTrL Macro VR05A 10-APR-74 0i:2q PaG£ 7 
COMPUTE FREE DISK SPACE 


.SBTTl COMPUTE free disk 


5 free: .iniT link 


4 

.TRaN link*mfd 

5 

.wait link 

6 


7 

CLR COUNTR 

8 

MOV «5,R0 

9 

MOV OMaPRLK*R1 

10 


11 1$* 

MOV ( R 1 ) f « RQMAP 

12 

JSR R5,a44 

13 

.TRAN LlNK*RDMAp 

14 

.WAIT LINK 

15 

JSR R5,S)46 

16 

MOV «DATA+8*,R2 

17 

MOV »60.*R3 

18 


19 2$; 

MOV (R?H,R4 

20 

MOV «l6.*R5 

21 


22 3*j 

ASR R4 

23 

BCS 4$ 

24 

INC COUNTR 

25 4*: 

SOB R 5 , 3$ 

26 


27 

SOB R3,2S 

28 


29 

SOB R0.1* 

30 

. RLSE LINK 

31 


32 

• B IN2D 7**COUNTR 

33 

mOv «7s*R0 

34 

MOV «4,R1 

35 5*8 

CMPR ( R 0 ) » 4 6 0 

36 

BNE 6$ 

37 

MOVB »40*(R0>+ 

38 

SOB R1.5* 

39 


40 6*: 

JSR R5 f MESAGE 

41 

.byte cr*lf 

42 7* * 

.blkb * 

43 

.AScIZ / FREE 8L0CKS/ 

44 j 

RTS PC 

45 


46 


47 ERR ADR : 

ASK < • IN I T FaILED> 

48 

JMP MON 


SPACE 


read MASTER file directory block 


COUNTr will CONTAIN FREE block count 

THERE are FIVE BIT MAPS 

GET DISK ADDR OF FIRST bIT MaP 

SET DISK ADDR IN TRAN BLOCK 

save rfgs on stack 

READ BITMAP INTO dATa BUFFER 
RESTORE REGS 

IGNORE FOUR CONTROL WORDS 
bit MAP CONTAINS 60 WORDS 

PICK UP BIT MAP WORD 
IT CONTAINS 16 BITS 

shift bottom bit into carry bit 
IF CARRY IS Set* BLOCK IS not free 
COUNT free BLOCK 

check Another bit 
do another word 

DO ANOTHER MAP 

RELEASE dataset when done 

convert number to decimal ascii 
POINT TO START Of ASCII STRING 
WE WILL check FIRST FOUR digits 
IS IT A ZERO? 

IF NOT* BRANCH 
change zero TO SPACE 

and check The n^xt digit 


error MESSAGE 


preceding 


PAGE BLANK NOT FILMED 
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CONTRL macro VR05A 10-APR-/4 ^l?2q PA&E 8 
INPUT IDENT STRING 


sbttl input ident string 


2 


3 

IDENT: 

jSR pc.crlf 

4 


ASK <IDENTS > 

5 


MOV 0IDBUF*R2 

6 



7 


MOV hidEnt *rstart 

B 


CLP COUNTR 

9 



10 

V * t 

JSR PC,RDCHAR 

11 


CMP R1,«CR 

12 


BEQ 2$ 

13 


JSR PC, store 

14 



15 


CMP C0UNTRi«4l* 

16 


blt 1* 

17 


ASK <T00 LONG> 

18 


bR ident 

19 



20 

2*: 

MOV R2,-<SP) 

21 


.DTCVT DATE 

22 


MOV ( SP ) * § R2 

23 


MOV wig* *R0 

24 


ADD R0, COUNTR 

25 


MOV »TRACE*Rl 

26 

3*; 

MOVB «Rl * » * *R2 > + 

27 


SOB R 0 , 3$ 

28 



29 

4$ t 

JSR PC , I CRLF 

30 



31 


MOV Bb2#*R0 

32 


SUB COUNTR *Rf? 

33 

5$ : 

CLRB !r2U 

34 


SOB R0,5$ 

35 


INC COUNTR 

36 


ASR COUNTR 

37 


MOV countr*icounT 

38 


CLR IFLAG 

39 


rts pc 


jSTORAGE pointer 
: RESTART aDDR 

•initialize char counter 

t GET char 
•carriage return? 

: IF SO, BRANCH 

•IF NOT* STORE THE CHAR 

♦TOO MANY CHARS? 

•IF NOT* GET ANOTHER 


;SAVE R2 ON THE STACK 

{ENCODE DATE AND STORE 

•RESTORE k2 from STACK 

;19 CHARS ARE ADDED TO IdENT STRING 

{THEY must be counted 

{POINTER TO « TRACED DATE" 

•append date to ident string 


•end with cr,lf 

•SIZE oF IDENT BUFFER 

•how many unfilled Bytes? 

•null them out 

•COUNT MUST bE ROUNDED UP 

• AND CHANGED TO WORD COUNT* 

• then stored 
{Indicate new ident string 
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CONTRL macro VR0 5 A 10-APR-74 0.1529 PAGE 9 
INPUT COMMENT BLOCK 

1 .SBTTL INPUT comment BLOCK 

2 


3 COMENTJ 

jSR PC « C RLE 


4 

ASk <C0MMfNT:> 


5 

JSR Pc » C RLF 


6 

MOV »DATA»R2 

•storage pointer 

7 

MOV «COMENT»rSTaRT 

tRESTART ADDR 

8 

n 

clr COUNTR 

•INITIALIZE CHAR COUNTER 

10 1 ‘l> . 

jSR PCtRDCMAR 

: GE T ChAR 

11 

CMP R1,»LF 

•line feed? 

12 

rEq 2S 

•IF 50, DONE 

13 

JSR PC, ST ORE 

jOThERwISE* store char 

14 

BR IS 

* AND GET ANOTHER 

15 



16 2*. 

CMPB *1 l R2 ) * nLF 

; w as previous char a crlf? 

17 

DEO 3S 

•if so, branch 

18 

jSR PC, ICRLF 

: IF NOT* INSERT ONE 

19 3ts 

CLRB * R2 > f 

•null the next byte 

20 

INC COUNTR 

: And COUNT IT 

21 

MOV COuNTR*ABC 

sACTUAL byte count 

22 

ado «4, arc 

•INCLUDE code WORD & WORD COUNT 

2 3 

ASR COUNTR 

:CHANGE byte CNT To word cnt 

24 

MOV countr»nwordS 

•STORE AS WORD BEFORE BUFFER 

25 

COM CSLOCK 

•COMMENT INDICATOR 

26 

R T 5 PC 

■ - 

27 



28 STORE: 

CMP Rl.OCR 

•CARRIAGE return? 

29 

BEG ICRLF 

•IF SO, Make IT A CRLF 

30 

CMP Rl.ttRUBOuT 

•RUBOUT? 

31 

rme IS 


32 

dec COUNTR 

•uncount the bad char 

3 3 

BMI 2S 

•IF COUNTER is neg, RESTART 

34 

ECHO #•/ 

•PRINT The deleted CHaR* 

35 

ECHO ~(R2> 

• surrounded by a pair 

36 

ECHO «*/ 

• OF SLASHES 

37 

RTS PC 


38 IS: 

CMP Rl,»2s 

; CNTRL/U to restart 

39 

BNE 3S 


40 2$ * 

TST (SP> + 

•POP THE RTS ADDR 

41 

JMP alRSTART 

•go to the restart addR 

42 3$ : 

MOVB Rl»*R2>+ 

•store the char 

43 . 

INC COUNTR 

! AND COUNT I T 

44 

RTS PC 


45 



46 ICRLF: 

MOVR «CR»(R21+ 

. 

47 

MOVB «LF»{R2)+ 


48 

ADD «2, COUNTR 

•.UPDATE byte count 

49 

RTS PC 
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parameter storage 


1 


.SBTTL PARAMETER 

storage 


2 






3 

idhead: 

68* * 1 * 68 • * 3 




4 

idcode: 

1 




5 

ICoUNT : 

1 0 • 




6 

IDRUF: 

. ASC I 2 /UNIDENTIFIED 

SCAN/<CR><LF> 


7 


. bLKi* u2 • 




8 






9 

TRACE: 

.ascii / - traced 

/ 



10 

DATE : 

.BLK8 1 0 • 




11 

GObUF : 

. BLK W ^2* 




12 

mfdbuf: 

. h L K W ^ 




13 

mapblk: 

. OLK W s 




14 






15 

countr: 

0 




lb 

mflag: 

0 




17 

I FLAG : 

0 




18 

cqlock: 

0 




19 

RSTART : 

0 




20 

STACK: 

0 




21 






22 






23 


erradr 


rERROR TRANSFER ADDR 


24 

link: 

0 • a *1 


:LINK block 


25 


. R AD 50 /DK/ 




26 






27 

mfd: 

1 *mfdruf *ft . 


•TRAN ft WDS FROM BLOCK 1 

INTO MFDBUF 

28 


S * 0 




29 






30 

RDM AP : 

0 *OATA .64. 


: TR AN fe4 WORDS INTO DATA 

buffer 

31 


5*0 





32 

33 .end monitr 

ERRORS DETECTED: it 

free core: 12146* WORDS 

’CONTRL .L2/NL :TTM! SYM: BIN: LOC<CONTRL 


ko 



SSSSSSSSSS 

sssss <:sss s 
ss ss 

ss 
ss 

S 5 S c » ^ S S S^>s 

sssssss^sss 

SS 

ss 

r >s ss 

SSSSSSSSSSSS 

sss^ss ..sss 


EEE' EFEE EEC 

eeeeeeeeeeee 

EE 

EE 

EE 

eeeeeeee 

eeeeeeee 


EE 

EE 

EE 

eeeee.:eeeeee 

eeeeeeeeef.ee 


rTTTTT rTriTT 
TTTTTTTTTTTT 

tt 

tt 

tt 

tt 

tt 

Tt 

tt 

tt 

tt 

tt 


uu 

uu 

uu 

uu 

uu 


UU 

UU 

uu 

uu 

uu 


uu 

uu 

uu 

uu 

uu 


uu 

uu 

uu 

uu 

UU 


UUUUUUUUUUUU 

UUUUUUUUUU 


ppppppppppp 
ppppp >pppppp 

PR PP 

pp pp 

PP pp 

pppppppppppp 

ppppppppppp 

pp 

pp 

pp 

pp 

pp 


11 

0000000000 

ill 

000000000000 

llll 

00 

000 

11 

00 

0 00 

1 1 

00 

0 00 

11 

00 

0 00 

11 

00 

0 00 

11 

00 0 

00 

11 

00 0 

00 

11 

000 

00 

lHlliii 

000000000000 

1 1 1 1 1 1 1 1 

0000000000 


aaa aa AaAAA 
aaa aaaaa aaaa 
AA aA 

AA AA 

AA aA 

Aa aa 

aa aa 

aaaaaaa aaaaa 

AAAAAAAaAAaA 
AA aA 

AA AA 

AA AA 


ppppppppppp 

pppppppppppp 
pp pp 

pp pp 

pp pp 

pppppppppppp 

ppppppppppp 

pp 

pp 

pp 

pp 

pp 


RRRRRRRRRRR 

rrrrrrrrrrrf- 
rr rr 

rR RF 

rR RF 

RRRRRRRRRRRf 
RRRRRRRRRRR 
RR RR 
RR RR 

RR RR 

RR RR 

RR RF 
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table of contents 

2- 1 SETUP EXECUTIVE 

4 . 3 INPUT SCANNING PARAMETERS 

9- 1 PARAMETER STORAGE 



SETUP 


macro VR05A i0-apr-7u 0i*3b page i 


1 

2 

3 

4 

5 

6 
1 
8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 
2 0 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 


.TITLE SETUP 
•16 JANUARY 19/4 

. GLOBL SETUP *DELT ax ’DELTA Y*xMOvE >EXEC * XD I R * YD I R ’MON 
. GLOBL ERA * XTR AV L * XTR A VH , NSC ANS * P aTErN * SPEED* B AC KUP 
.GLOBL SETDUN*NLINES*XLBUF *xhbuf *ylbuf* YHBuF ’DEVICE 
.GLOBL RTNSPD’RdCHAR’DISK tTAPE,LSTCHR »XrAMPS*TOOLRG 
.GLOBL NPOINT’NEGOK ’CRLF,ME5AGE’RDASC *RdA SC2’ I OMODE 
.GLOBL DX,SWcSET*SwCSPD*vELSEL* SWITCH ’SER1£S*nUMBER 
.GLOBL RAMP »SPDSET,T0C5*T0CKS 
.MCALL .BIN2d**REGS 
.REGS 

LF* 1 2 
CR = 15 
pLUS= 5 ^ 

MlNUSr 55 

DRllA=l 77522 
.macro ask text 

MOV 4 • « ER A 
JSR R5 * MESAGE 
.BYTE cR’LF 
. A SC I £ STEXTa 
.EVEN 
.ENOM 

.macro MSG TEXT 
MOV B**ERA 
JSR R5 , MESAGE 
. ASC I 2 ♦TEXT* 

.Even 

.ENDM 


: error Return address 
•type out message 





SETUP 

setup 


macro VR05A 10-APR- k 74 PAGE 2 

executive 


3 setups 

tst setdun 

4 

bpl exec 

5 

ask <OpTlONS > 

6 

JSR PC.RDCHAR 

7 

MOV His*«R0 

8 1$: 

CMPb Rl»TA0LElR0J 

9 

BEQ 24 

10 

SOB R0,1* 

11 

JMP ERROR 

12 

13 2%t 

CMP R0,«l3. 

14 

BOE 34 

15 

JSR PCtCRLF 

16 34* 

dec R0 

17 

ASL R0 

18 

JSR PC , 5)OpT ION 5 R0 * 

19 

RTS PC 

20 

21 TABLE: 

.ASCII /0XBEFLMPSL 

22 

.even 

23 

24 OPTION* 

numset 

25 

getb ak 

26 

mon 

27 

fortio 

28 

letter 

29 

medium 

30 

GETPAT 

31 

SETSWC 

32 

EXEC 

33 

getvel 

34 

getx 

35 

gety 

36 

C2 

37 

02 

38 

N2 

39 

40 SETSWC* 

mOV »2,SWCSET 

41 

MOVR SwCNUM+ptSWl 

42 

MOV switch^drUa 

43 

MOV dx.delTax 

44 

MOV X TR A VL * R3 

45 

MOV XTrAvH*R2 

46 

47 SPDSET* 

MOV »XMOVE*R0 

48 

JSR pc.velsel 

49 

MOV (Rs)*RAMP 

50 

MOVB SwCSPD(R4> ,S 

51 

MOV SPEED*RTNSPD 

52 

rts pc 


• HAS FULL SETUP BEEN DONE? 
jIF NOT* DO IT 

•GET CONTROL CHAR 

• only 15 legal CHARS 
•IS char in table? 

•IF SO, BRANCH 

•TRY NEXT ENTRY IN TABLE 


•IS 2ND LETTER REQUIRED? 

•IF SO, BRANCH 
s OTHERWISE * GO TO NEXT LINE 

•MAKE R0 A word OFFSET 
•GO TO PROPER ROUTINE 

•return to monitor 


sINDICATE 1 MICRON 
•SET SWITCH BITS 
:Set Switch 

•MAkE OELTAX CORRECT FOR l^MlCRON SWITCH 

{RECOVER scan line length 

jINDICATE X-MOVE 

•.GET PROPER SPEED FOR THIS SPEED SETTING 
{STORE PAMP FOR THIS SPEED 

{Store speed 
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SETUP MACRO VR05A 10-ApR-7u 01:3ft PAGE 3 
SPTUP EXECUTIVE 


1 EXEC* 

CLR R0 

2 IS. 

MOV R0,-<SP) 

3 

J5R PC*aSEOtR0> 

4 

MOV (SP)+,R0 

5 

TST ( R0 ) + 

6 

bR is 

7 


8 EDUN* 

mov o-i*setdun 

9 

jMP MON 

10 


11 Seq: 

getx 

12 

gety 

13 

getpat 

14 

getox 

1 5 

getdy 

16 

getnl 

17 

getxy 

18 

edun 

19 


20 N2 • 

JSR Pc,RDCHAR 

21 

JSR PC,CRLF 

22 

CMP Rl.a'P 

23 

bne IS 

24 

jMP GETNP 

25 1 S i 

CMP Ri,« !l 

26 

bne JE 

27 

JMP getnl 

28 JE* 

JMP ERROR 

29 


30 D2 S 

JSR PC,RDCHAR 

31 

JSR PC *C RLF 

32 

CMP R1,«!X 

33 

beq getdx 

34 

CMP R 1 , a ! Y 

35 

bne JE 

36 

JMP GETDY 

37 


38 letter: 

ASK <SERIfS LETTER; 

39 

JSR PC,RDCHAR 

40 

JSR PC *C RLF 

41 

CMPB R 1 * 4 , A 

42 

BLT JE 

43 

CMPB Rl * ? 1 z 

44 

BGT JE 

45 

MOV Rl, SERIES 

46 

MOV ai, NUMBER 

47 

RTS pc 

48 


49 NUmSET: 

ask <numbeR* > 

50 

JSR PC.RDASC 

51 

CMP R3,«9q. 

52 

ble is 

53 

JMP TOOLRG 

54 1$; 

MOV R 3, NUMBER 

55 

rts pc 


> 


• R0 IS LIST POINTER 

•save r0 on the stack 

j GO TO PROPER ROUTINE 
•RESTORE R0 FROM STACK 
•POINT TO NEXT ROUTINE 
t AND EXECUTE IT 

•indicate completed setup 

iEXlT DIRECTLY to MONITOR 


•get 2nd COMMAND LETTER 
iADVANCE to next line 


•GET 2nd command LETTER 
•advance to next line 


•THIS ROUTINE PROVIDES A NEW 
• FIRST LETTER for THE 
t OUTPUT FILENAME 
•AT LEAST ASCII ’A*? 

•IF NOT * ERROR 
•ABOVE ASCII f Z*? 

•IF SO, ERROR 

•STORE SERIES DESIGNATOR 

•INITIALIZE COUNT 


tGET small positive number 

sMUSTNfT rE OVER 9q 
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setup macro VR05A 10-APR-?a »1!3 B PAGE 4 
INPUT SCANNING PARAMETERS 


1 

2 

3 GETX* 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 Its 

17 

18 GETYS 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 Its 

31 

32 GETDXs 

33 

34 

35 

36 

37 

38 

39 

40 1$: 

41 

42 

43 

44 

45 2$: 

46 

47 


.sbttl input scanning parameters 


jsr pc.crle 
ask <x-dir 

jSR PC.RDCHAR 

clr xdir 

CMP Rlt«!L 
bEQ 1* 

CMP RI.splUS 
BEQ It 
COM XDIR 
CMP R1*«!R 
bEQ It 

CMP R1.KMINUS 
BNE JE 
RTS PC 

ASK <T-DIR 
J5R PC.RDCHAR 

clr ydir 

CMP Rl,«*B 
BEO It 

CMP R1,«PLUS 
BEQ It 
COM YDIR 
CMP ri,«!f 
BEQ It 

CMP Rl,»MlNUS 
BNE JE 
RTS PC 


s XDlR-0 MEANS "LETT" 
•XDIR = -1 MEANS "RIGHT" 


s YD I R 3 0 means "BACk” 
;YDiR = -1 means "FRONT" 


ask <delta x > 

JSR PC.RDASC 
MOV R3.DX 

ble BADNUM sMUST be >0 

CMP 02000. *R3 _ _ 

bmi BADNUM iMUST not exceed 2 mm 


MOV 02, R4 
MOV R3.DELTAX 
ASR R3 
BCS 2t 
SOB R4,lt 
MOV R3 ,DElT AX 
MOV R4 , 5WC SET 
movb swCnum(r4) *sw itch+i* s store scale 

MOV SwiTCHiDRilA ‘.ACTUATE THE 


sINITIALIZE pointer 
sASSUME R3 CORRECT DELTA-X 
•SHIFT LOW BIT INTO THE C-BlT 
•.BRANCH IF IT*S SET 
•OTHERWISE* CHECK THE NEXT BIT 
•IT HAS NOW BEEN DIVIDED BY 4 
•STORE INDEX OF SWITCH SETTING 

INCREMENT SWITCH BITS 

switch 
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SETiJp macro VRflSA 10-APR-74 Ul!3 ft 
input scanning parameters 


1 

GETNPj 

MSG 

<pts/line > 

2 


JSR 

PC*RDASC 

3 


CMP 

R3,BUfSIZ 

4 


blos it 

5 


JMP 

T OOLRG 

6 

1*1 

CMP 

R3,4l 

7 


ble 

badnum 

8 


MOV 

R 3 , NPO I NT 

9 


DEC 

R 3 

10 


MOV 

R3,R2 

11 


mul 

DX ,R2 

12 

•• 

jSr 

PC , spdset 

13 


MOV 

TOCS*TOCKS 

14 


MOV 

R3,XTRAVL 

15 


MOV 

R2.XTRAVH 

16 


RTS 

PC 

17 




18 

GETDY : 

TST 

patern 

19 


BGT 

It 

2 0 


MSG 

< Y STEP- > 

21 


JSR 

PC .RDASC 

22 


mOv 

R 3 , DELT A Y 

23 

1* s 

rts 

PC 

24 




25 

badnijm s 

mOv 

era *erRet 

26 


ASk 

<illegal number> 

27 


jSr 

pc « c rlf 

28 


JMP 

serret 

29 



' - 

30 

GETNL : 

TST 

PATERN 

31 


ble 

It 

32 


MOV 

ttltNLTNES 

33 


RTS 

PC 

34 

Its 

MSG 

<LINES > 

35 


JSR 

PC ,RDASC 

36 


MOV 

R3,NLINES 

37 


RTS 

PC 

38 




39 

get'pat: 

ASK 

<PATTERN > 

40 


JSR 

PC *RDcHAR 

41 


MOV 

44, R2 

42 

It! 

CMPB 3s<R 2) » Rl 

43 


BEQ 

2t 

44 


SOB 

R2,lt 

45 


BR ERROR 

46 

2ti 

SUB 

43, R2 

47 


MOV 

R2, PATERN 

48 


RTS 

PC 

49 

3t • 

.ASCIZ /0BREL/ 


PAGE 5 


•cannot exceed bUPFER SIZE 


•MUST be >1 

{STORE NUMBER OF POINTS 

! MUST BE IN EVEN REGISTER 
• for double word result 

iSELECT OPTIMUM SPEED 

•store the delay timer 

•STORE LO ORDER WORD 
•STORE hi ORDER WORD 


•GO TO ERROR RETURN AdDR 

iSInGLE line SCAN? 

{ IF NOT* BRANCH 


! small number only 


•pointer to char list 

•LOOK FOR A MATCH 
•if found, BRANCH 
:OTHERWlSE* DECREMENT POINTER 
SERROR if no match 

iMAKE RANGE -2 TO +1 
•STORE RESULT 
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SETUP MACRO VR05a 14J-APR«74 0i:3r PAGE 6 

input scanning parameters 


l getvel: 

mSG <SpEED > 

2 

JSR pc*rdasc 

3 

mov swc set * r 0 

4 

MOVB SwCSPD(R0) * R2 

5 

Bic «l77400»R2 

6 

TST R 3 

7 

BLE BADNUM 

8 

CMP R3 * R2 

9 

BGT BADNUM 

10 

mov R3 * speed 

11 

MOV «5,R0 

12 1$. 

CMPB R3»SwCSPDiR0) 

13 

BLE 2$ 

14 

SOB R0,1$ 

15 2*t 

ASL R0 

16 

MOV XR A MPS(R0) * ramp 

17 

RTS PC 

18 


19 FOR T 1 0 S 

clr iomode 

20 

ask <ftn I/O? > 

21 

JSR PC,RDcHAR 

22 

CMP Rl,8»y 

23 

b£o 1$ 

24 

COM IOMODE 

25 

CMP R1,8*n 

26 

BNE ERROR 

27 l*t 

rts PC 

28 


29 GETBAK! 

MSG <B A CKUP? > 

30 

JSR PC • RDCH AR 

31 

clr backup 

32 

CMP R1,»!n 

33 

BEQ IS 

34 

COM BACKUP 

35 

CMP Rl,8*y 

36 

BNE ERROR 

37 IS; 

RTS PC 

38 


39 medium: 

ASK <STORAGE > 

40 

jsr pc*rdchar 

41 

MOV &DISK. DEVICE 

42 

CMP R1,«!d 

43 

BEO 1$ 

44 

MOV 8T APE*DFV I CE 

45 

CMP R1 , 8 1 T 

46 

BEQ is 

47 

CMP R1,8»m 

48 

BNE ERROR 

49 1$. 

RTS PC 

50 


51 Error* 

MOV ERA»ERRET 

52 

ask <wh a T?> 

53 

JMP QERRET 


:get max speed for this switch setting 
•eliminate extended sign 

jCOmPARE R 3 TO ZERO 
•SPEED MUST be >0 

iMUST NOT BE GREATER THAN MaX SPEED 

•branch if too fast 

! STORE NEW SPEED 

t pointer for speeds list 

sCOMPARE new SPEED to LIST ITEM 

s if not faster* branch 
jOThERwISe* COMPARE To HIGHER speed 
sMAKE R0 A WORD offset 
•GET APPROPRIATE RAMP FOR NEW SPEeD 


j0 MEANS f0rtRAN*COMPaTIBLE I/O 


t YES? 

: “1 MEANS NON-FORTRAN 
* NO? 


•ZERO MEANS NO 


i-1 MEANS YES 


t assume disk storage 

S VD” FOR DISK? 

: IF SO, EXIT 

sCHANGE DEVICE POINTER 

! "T" FOR TAPE? 

t"M»« FOR MAGTAPE IS ACCEPTABLE 


t save era because*, •*. 

: "ASK” RESETS IT 

:GO TO ERROR RETURN ADDR 
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SETUP MACRO VR05A 1&-APR-74 01 : 3* PAGE 7 

input scanning parameters 


1 

C2s 

jSR PC,RDCHAR 

2 


cmpb ri *R cR 

3 


beq getxy 

4 



5 


cmpb Ri*«*N 

6 


BNE z % 

7 


ASK <FRAME > 

8 


JSR PC,RDASC 

9 


DEC R 3 

10 


bmi error 

11 


aSL R3 

12 


CMP R3,NSC ANS 

13 


ble 1$ 

14 


JMP TOOLRG 

15 

1$! 

MOV R 3 ,C OUNTR 

16 


bR xyinpt 

17 



18 

2$! 

cmpb Ri*»*X 

19 


BNE 3$ 

20 


ASK <X = > 

21 


MOV hxlbuf*countr 

22 


bR 4$ 

23 



24 

3*t 

cmpb Ri *«♦ y 

25 


bne error 

26 


ask <Y = > 

27 


MOV OYlBUF *C oUNTR 

28 



29 

4$i 

mov a* i * negok 

30 


JSR PC,RDASC? 

31 


MOV C OUNTR * R 0 

32 


MOV R 0 , R 1 

33 


ADD «64-*Rl 

34 


MOV o3?,»R4 

35 

5$! 

MOV R3, ( R0) + 

36 


MOV R 2 , ( R 1 ) + 

37 


SOB R4*5$ 

38 


RTS PC 


• GET ?nD LETTER OF COMMANO 
•IS IT A CARRIAGE RETURN? 

•IF SO, INPUT WHOLE ARRAY 

tCHANGE A PARTICULAR FRAME? 

; IF NOT * BRANCH 

tGET The FRAME nUMrEr 

•NUMBER had TO rE POSITIVE 

•NSC ANS CONTAINS <2N“2> 

•branch IF number IS OK 

•GO TO ERROR ROUTINE iF NEEDED 
t * C OUNtR ! CONTAINS FRAME POINTER 
jXYINPT WILL PROVIDE RTS 

•SET ALL X COORDS? 

•IF NOT* BRANCH 

jCOUNTR will provide list pointer 


•CHANGE ALL Y COORDS? 

•THAT WAS LAST LEGAL OPTION 

•POINTER TO y-storage array 

•A NEG COORD IS legal 
•number may t/be large 
t POINTER to LOW order LIST 

•POINTER TO HIGH ORDER LIST 
•change all values for THE COORD 
J STORE LOW ORDER WORD 
•STORE HIGH ORDER WORD 
•go thru entire array 
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SETUP 

INPUT 


MACRO VR05A 10-APR-74 PAGE 8 


scanning parameters 


1 GETXY: 

CLR COUNTR 

2 

MOV #l,FCOUNT 

3 lit 

.B IN2D FBUF+i*FCOUNT 

4 

CMPB FBUF+4»«60 

5 

bne 2i 

6 

MOVB 840*FBUF+4 

7 2$t 

MOV FBUF+4*3t 

8 

jSR R5,MESAGE 

9 

.ASCII <CR> <lF>/FRAM 

10 3St 

0*0 

11 


12 

JSR PC.XYINPT 

13 

TST LStCHR 

14 

bEq 5i 

15 

CMP R0*o5fl. 

16 

BGE 4$ 

17 

ADD «2, COUNTR 

IB 

INC FCOUNT 

19 

BR 1$ 

20 


21 4i{ 

ASK CLIMIT REACHED> 

22 5$J 

MOV R0,NSCANS 

23 

RTS PC 

24 


25 


26 XYINPTS 

ASK <X = > 

27 

MOV »-l*NEGOK 

28 

jSR PC * RDASC 2 

29 

TST LSTCHR 

30 

BEQ li 

31 

MOV COUNTR*R0 

32 

MOV R 3 , XLBUF C R 0 > 

33 

MOV R2 * XHBUF ( R 0 ) 

34 


35 

MSG <Y : > 

36 

MOV «*l»NEGOK 

37 

JSR PC,RDASC2 

38 

MOV COUNTR * R 0 

39 

MOV R3*YLBUF(R0) 

40 

MOV R2,YHBUF(R0) 

41 li{ 

rts PC 


♦pointer to frame number 

♦FRAME NUMBER 
{ENCODE FRAME NUMBER 

• 1$ there A LEADING ZERO? 

• IF NOT * BRANCH 

• if so * change it to a space 

IpUT NUMBER IN TEXT STRING 


:GET A COORD PAIR 
•WAS <LF> TYPED? 

•if so* INPUT is done 
{HAS LIMIT been REACHED? 

•IF SO, PRINT MESSAGE 

•POINT TO NEXT STORAGE LOCATIONS 

{INCREMENT FRAME NUMBER 

{GET NEXT COORD SET 


•store scan count <2n - 2> 


iNEG COORD IS LEGAL 
•SO IS LARGE number 
•was <lf> typed? 

•IF SO* ignore X AND EXIT 

{STORE LOW ORDER WORD 
♦STORE HIGH ORDER WORD 

•do same for y 
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SETUP macro VR 05a 10-APR-74 01*3r PAGE 9 

parameter storage 


.SBTTL PARAMETER STORAGE 




3 

\* ****** *********** 

4 

NPOINT * 

0 

5 

XdiR* 

0 

6 

ydir* 

0 

7 

DXj 

0 

8 

DELTAYS 

100. 

9 

xtravl* 

0 

10 

XTrAVHS 

0 

11 

’NLINESS 

0 

12 

paterns 

0 

13 

SPEED* 

100 

14 

backup: 

0 

15 

NSc A ns : 

0 

16 

IomOde: 

0 

17 

XLBUF: 

.BLKW 32* 

18 

XHBUF : 

.BLKW 32* 

19 

YLBUFl 

.BLKW 32 • 

20 

YHBUF: 

.BLKW 32* 

21 

*++++*** ******* 


•THESE ADDR!S MUST REMAIN 
•INTACT and in THIS ORDER 


_ r *t**** + *** + *+ ****** + * + + + + :f + + + + + 4l + + + * ++ * + + + + t * + + + + + 

. jf. -r ■ • t • V T + : T 

22 

23 DELTAX: 0 

24 DEVICES DISK 

25 SETDUNS 0 

26 ERAS 0 

27 ERrET* 0 

28 COUNTRS 0 

29 FBUFS 0*0.0 

30 FCOUNTS 0 

31 S WC SET • 2 

32 SWCNUMS .BYTE 30*50*10 0 *0 

33 BUFSIZ! 1 2 0 00 • 

34 .END 

errors detected* 0 

FREE CORE* 1251r* WORDS 

* SETuP * L 2 /nL jttm.symsbin* loc <setup 
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SSS<;S$SSSS 
SSSS^S^SSSSS 
SS £S 

ss 

S5SSSS5SSS5 

SSS5SS5SS5S 

S5 

S5 

ss ss 

SSSSSSSsSSsS 

SS^SSSSSSS 


cccccccccc 

CCcCCC CCCCCC 

cc cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc cc 

cccccccccccc 
cccccccccc 


AAAAAAAA aA 
AAAaAAAA aaa a 
A A A A 

AA AA 

A A A A 

A A A A 

A A A A 

AAAa AAaAAaAA 
aAA A AAA AA AAA 
A A A A 

A A AA 

A A A A 


NN 

NN 

NNN 

NN 

nnnn 

NN 

NN NN 

nn 

NN NN 

nn 

NN NN 

NN 

NN NN NN 

NN 

nn nn 

NN 

NnnN 

NN 

NnN 

NN 

nn 

NN 

nn 


11 

0000000040 


AAAaAAAA AA 

ppppppppppp 

RRRRRRRRRRR 

11 

000000000000 


aaaaaaaaAaaa 

pppppppppppp 

RRRRRRRRRRRR 

11 

00 

000 


aa 

AA 

pp pp 

RR 

RR 

11 

00 

0 00 


AA 

aa 

pp pp 

rR 

RR 

11 

00 

0 00 


AA 

AA 

pp pp 

rR 

RR 

11 

00 

0 00 

******** 

A A 

aa 

pppppppppppp 

RRRRRRRRRRRR 

11 

00 

0 00 

******** 

AA 

aA 

ppppppppppp 

RRRRRRRRRRR 

11 

00 

0 00 


AAAAAAAAAAAA 

pp 

RR 

RR 

11 

00 0 

00 


AAAAAAAAAAAA 

pp 

RR 

RR 

11 

000 

00 


aa 

aa 

pp 

RR 

RR 

1 lili 

000000000000 


A A 

aA 

pp 

RR 

RR 

lllll 

0000000000 


A A 

aa 

pp 

RR 

RR 


PRECEDING PAGE BLANK NOT FILMED 
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SCAN macro VR®5A X@~&PR-7ii. 0I§3q 
table of contents 


2=. 1 
3- x 

5 ~ 1 

6=* j 

7- i 

/ «*■ 2 4 

8 «=. -j 
10c t 

11= ! 


SCAN EXECUTIVE 

playback executive 

abort SCAN 

initialise Scan 

SCAN one LINE 

MOVE TO NEXT SCAN LINE 

COMPLETION OF FRAME SCAN 

MOVE CARRIAGE TO ThE ORIGIN 

move routines 

SETUP FOR MOVE 
PARAMETER storage 


5 *+ 



scan 


Macro VRflSA 10-APR-74 ?i:3q PAGE 1 


1 .title scan 

2 .1 FEBRUARY ±974 


4 . GLOBL XDIR»YDIR*DELTAX*XTRAVL,XTRAVH»DELTAY*H0ME*DSP 

5 .GLOBL NSCANS*PaT£RN*SPEED*kEY,XLBUF,XHbUF*CRlP»RDAsC 

6 .GLOBL YLBUF,YHbUF*5ETDUN*NLINES*nP0iNT*DE\/ICE»TSTScN 

7 .GLOBL RDXY*LDVAL*NEGATEfRDCHAR*MESAGE*DELAY*DX*XMO VE 

8 .GLOBL XNOWL.YNOWL,S. EXEC *P. EXEC *FXEC*MON*RAMPtCBLOCK 

9 .GLOBL DMOVE *GO. X *GO • Y * XGOH « YGOH * XGOL * YGOL * BA CKUP *CRT 

10 .GLOBL SWCSPD»5WITCH*XRAMPS*SPDSEL>TEMP,SPDSET>RTNSPD 

11 .GLOBL RDVAL,T0C5*T0CKStDATA 


12 

.mcall .PARAM 


13 

14 

.PARAM 

sDEnSITOMETER MOTOR CONTROL 

15 

MOTORS = 167000 

16 

DBNB = 1 6?0 32 

• DIVIDE*B Y-N BUFFER 

1? 

DBNS = 167034 

sDIVIOE-BY-N STaRUS REGISTER 

18 

LIMITS = 167040 

•limit flags REGISTER 

19 

ADC = 16705? 

:A/D CONVERTER BUFFER 

20 

DAC = 16?072 

iD/A CONVERTER BUFFER 

21 

22 

23 

DRllA = 177*22 

•scale increment switch bits 

24 

.MACRO ASK TEXT 


25 

jSR R5*MESAGE 


26 

.ASCI2 <CRXLF>aTExTa 


27 

.even 


28 

29 

.endm 


30 

. .MACRO MSG TEXT 


31 

jSr R5 ,mes age 


32 ! 

.ASCIZ aTEXTff 


33 

.EVEN 


34 

35 

.Endm 


36 

.asect 


37 

38 

. = 170 
D0NINT 

tDlVlDE-BY-N INTERRUPT VECTOR 

39 

40 

41 

340 

•PRIORITY 7 

42 

. C SECT 
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SCAN macro VR05A 10«APR“?ij ®1 s3q PAGE 2 
scan executive 


1 q srttl scan executive 

2 


3 SoEXEC§ 

MOV 

9 TfLAG 

4 TStSCNS 

T ST 

setDun 

5 

rmi 

IS 

6 

JMP 

EXEC 

7 



8 !$• 

MOV 

fil0l2a 9 PASS , 

9 

MOV 

£3l0l42ePASS« 

10 

CLR 

DSP 

11 

tst 

TflAG 

12 

bpl 

2$ 

13 

JSR 

RS 0 SDEVI CE 

14 

2 


15 

MOV 

8 I 4 9 SOURCE 

1 6 



17 2$ 2 

MOV 

XTRAVLoXtL 

ia 

MOV 

xtravh® xth 

19 

MOV 

P ATERNsPAT 

2& 

JSR 

PC oSCAN 

21 



22 3$g 

JSR 

PC oXSCAN 

23 



24 

MOV 

MODE 9 5 $ 

25 

MOV 

8i4l 0 D0NS 

26 4$ t 

MOV 

ADC 5 R 1 

27 

A S H 

n a 2 5 R 1 

28 5$ 2 

MOV 

Rio <R2>* 

29 

wait 

30 

SOB 

R3 0 4$ 

31 

MOV 

temp spSw 

32 



33 

JSR 

PC^SIGNAL 

34 

TST 

TFLAG 

35 

BPL 

<b% 

36 

MOV 

SOURCE 9 © +12 

37 

JSR 

R5 0 fflDEVlcE 

38 

0 


39 

CLR 

SOURCE 

40 



4 1 6 $ 2 

bit 

»SwR 

42 

beq 

7 $ 

43 

jSR 

PC 0 CRT 

4 4 

bit 

?SWR 

45 

beq 

7% 

46 

JMP 

ZkP 

47 



48 7$2 

DEC 

LCOUNT 

49 

beq 

8 $ 

50 

JSR 

PC oNEXTLN 

51 

BR 

3 $ 

52 a$2 

MOV 

8 lin>S 0 URcE 

53 

jSR 

PCoENdSCN 

54 

RR 

3$ 


S a l MEANS REAL RUN 
g~X IF SETUP COMPLETED 

^GO TO SETUP ROUTINE 

s #8 mov rimR2)^’ instruction code 

g"MOV Rl»«.(R2)|! instruction code 

sCLEAR display flag 

gis this a real run? 

glF not® don^t open a file 

SWRlTE initializing data on 

• primary storage device 
g!4 MEANS 1ST data RECORD 

g move the x^travel distance 

1 TO A WORK AREA 
sDITTO FOR PATTERN 

initialize scan 
“START scan of one line 

•install data transfer INSTRUCTION 

2 ENABLE DIVIdE®bY-N interrupt 
aPICK up THE DIGITIZED DENSlTy 

sReduce it to t h e real la bits 

sSTORE IT 

*wait for di vide°by-n interrupt 
§ COUNT The point® do it AGAIN 
« RESTORE THE PROCESSOR STATUS 

g st op motor® check abort switch 
•is this a real run? 

• IF NOT « DON«T RECORD THE DaTA 
tSPECIFlES WHETHER 1ST DATA RECORD 

jRECORD data on storage device 

sZERO MEANS "NOT 1ST RECORD" 

S IS SWITCH 3 SET? 

!lF NOT * BRANCH 

•IF so e DISPLAY DATA on terminal 

• HAS ABORT REEN REQUESTED? 

•IF NOT® BRANCH 

•if so, jump to Abort routine 

2 COUNT The line 
gIF LAST LINE® BRANCH 
2 GO TO NEXT LINE 
2 AND SCAN IT 

"INDICATE 1ST RECORD OF NEW FRAME 

oReturn to origin® check frame count 
? sc an next frame 
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scan macro vrb5a i0~apr-74 0i:3q page 3 

PLAYBACK EXECUTIVE 


I 1 .SBTTL PLAYBACK EXECUTIVE 


2 


3 P»FXEC5 

MOV 

tt*l » TpLAG 

4 

MOV 

tt-jS *SOURCE 

5 

ASK 

<ScALE FACTOR > 

6 

jSr 

PC ,rdaSc 

7 

tst 

R3 

8 

bgt 

24 

9 l$j 

MSG 

<WhAT?> 

10 

BR P 

• EXEC 

11 2 $ t 

CMP 

R3,ttl00. 

12 

bgt 

14 

13 

MOV 

R 3 , NPULSE 

14 



15 3$: 

MSG 

<PARAmETfR SOURCE? 

16 

jSr 

pc,rdchar 

17 

JSR 

Pc ,CrlF 

18 

CMP 

R1,«!k 

19 

beg 

4 $ 

20 

MOV 

e-R* source 

21 

CMP 

ri.«!r 

22 

beg 

54 

23 

MSG 

<WH A T ?> 

24 

JSR 

PC.CRlF 

25 

BR 34 

26 



27 4«; 

TST 

setdun 

28 

bmi 

54 

29 

JMP 

EXEC 

30 



31 54 1 

CLR 

DSP 

32 

MOv 

SOURCE * • +12 

33 

JSR 

R5, aDEVicE 

34 

-3 


35 

MOV 

»-l l*SOURCE 

36 



37 

CLR 

R3 

38 

CLR 

R2 

39 

MOV 

NPULSE * R 0 

40 64 t 

add 

X TR AVL *R 3 

41 

ADC 

R2 

42 

add 

XTrAVH*R 2 

43 

SOB 

R0,64 

44 

MOV 

NPuLSE*R 0 

45 

dec 

R0 

46 

mul 

DX*R0 

47 



48 

add 

R 1 , R 3 

49 

adc 

R2 

50 

add 

R 0 , R 2 

51 

MOV 

R 3 , X TL 

52 

MOv 

R2 , XTH 

53 

jSr 

pc, spdset 

54 

CLR 

R5 

55 

MOV 

PATERNtPAT 

56 

JSR 

pc*key 

57 

JSR 

pc ,sc an 


t INPUT A SMALL number 
tis IT <0? 

•IF 50, BRANCH 
•IF NOT ♦ ERROR 

; 10 0 IS UPPER LIMIT 
: ERROR IF EXCEEDED 
•STORE THE PULSE COUNT 

(K OR R) > 


• "K*» FOR KEYBOARD? 


;"R» for recorded? 


;-l IF SETUP COMPLETED 

i Go To setup routine 
•clear display flag 

•SPECIFY REQUESTED PARAMETER SoURcE 
•open INPUT file 

jLOOK FOR 1ST DATA RECORD 


jCOMPUTE THE ACTUAL LINE LENGTH 

• BY ADDING The SINGLE-STeP 

• length NPULSE TIMES 


•A CORRECTION MUST BE INCLUDED 
• TO ACCOUNT FOR THE ENDPOINT 


: STORE THE RF.SUlT IN A WOOING ARfA 

{Select optimum speed for this line 

s indicate 1ST FRAME 

•put Scan pattern in scratch word 

•HIT KEY TO CONTINUE 

{Initialize scan 
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SCAN MACRO VRgSA 10~APR°?4 01S3 q PAGE 4 
PLAYBACK EXECUTIVE 


I 

photos 

MOV SOURCE® *+12 

2 


jSR R5«0DE VICE 

3 


-1 

4 


MOV E) 40 .! 0 SOURCE 

5 

6 


BIT ®I 0 ®$WR 

7 


beq is 

a 


JSR PCoCRT 

9 


BIT 82 @ ®SwR 

1 ® 


bne zap 

11 

IS 2 

neg pat 

.12 


MOV NpuLSE®LREP 

13 


MOV $ 1^2®! 9 P AS S a A 

14 


MOV £51^201 sPASS b B 

15 

16 

2$ s 

jsr pc 9 xsc an 

17 

18 


MOV MODELS 

19 


MOV Ulpl »DBNS 

20 

3$» 

MOV NPULSE ® r s 

21 

4$ 2 

MOV IRs»)+ 6 R1 

22 


CMp Rl (j a2Ji5« 

23 


BLOS 5s 

24 


MOV 9 R1 

25 

5$ 2 

MOV RI*DAC 

26 


WAIT 

27 


SOB R® e 5 S 

28 


SOB R3 e 3S 

29 


MOV TEmP^PSW 

30 

31 


JSR PCoSiGNAL 

32 


dec lrep 

33 


beq 65 

34 


JSR PCoNeXTLN 

35 


BR 25 

36 

37 

&S 2 

neg PAT 

38 


dec lcount 

39 


BEQ 75 

40 


JSR PC 9 NEX TLN 

41 


BR PHOTO 

42 

43 

7$ • 

MOV »SOUrCE 

44 


jSR PC® EndSC N 

45 


BR PHOTO 

46 

47 

48 


• sbttl abort scan 

49 

2 AP i 

jSr PC oCRLF 

50 


ASK €SCAN ABoRTeD> 

51 

thud s 

ASK <RESET SWITCH 

52 


TST TFLAG 

53 


BPL 1$ 

54 


JSR R5,aDEVIcE 

55 


4 

56 

is * 

CUR TFLAG 

5? 


JMP MON 


sINdICATES data record number 
i Read a line of data 

: NEXT RECORD WOn^T BE The 2-ST 

SIS SWITCH 3 SET? 

SIF NOT* BRANCH 

* if So® display data on terminal 

2HAS ABORT BEEN REQUESTED? 

*IF SO, GO To ABORT ROUTINE 
f SET UP REPEAT PATTERN 

s npulse also causes line repeat 
t Vmo v (R2 )+#ri*j instruction code 

g’ { MOV ro C R 2 ) * R 1 ** INSTRUCTION CODE 
{START SCAN OF ONE L InE 

^install data Transfer instruction 

sENASLE D1VIDE“BT“N INTERRUPT 
2 N 0 o OF PULSES for EAcH POINT 
{DIGITAL INPUT VALUE 
2 8“B 1 T LTMIT 

{Continue if in range 
tOTHERwISF* SET To MAX 
l send signal To DIODE 

2 W A I T FOR INTERRUPT 
•COUNT THE PULSE NUMBER 
{COUNT THE POINT* DO IT AGAIN 
•RESTORE THE PROCESSOR STATUS 

2 ST 0 P MOTOR* CHECK ABORT SWITCH 
SLINE repeat counter 
20 means done with the: line 

2 D 0 EDGE MOVE TO NEXT LINE 

t do The line repeat 

•restore the SPECIFIED pattern 
•count the line 
•.if last line* BRANCH 
2 GO TO NEXT LINE 

! and continue 

jlNDlCATE 1ST RECORD OF NEW FRAME 

jReturn to origin* check frame count 
jPLAY back NeXT Frame 


2 was This a real run? 

tIF NOT * NO FILE WAS OPENED 
sCLoSE DATA FILE 

;RESET THE TEST FLAG 
! EX I T OXRECTLY TO MONITOR 
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Scan Macro VRgSA 10-APR-7u 0i:3q PAGE 5 
INITIALIZE SCaN 


.sbttl initialize scan 


2 


3 

SCAN* 

CLR 

R 5 

4 


CMP 

PATERN*tt-l 

5 


rne 

IS 

6 


MOV 

NPolNT *CNTDWN 

7 


asl 

cntdwn 

8 




9 

1 $ • 

MOV 

X T L * R 3 

10 


mOv 

XtH*R2 

11 


tst 

XdiR 

12 


bpl 

2$ 

13 


JSR 

PC .negate 

14 


MOV 

R3.XTL 

15 


MOV 

R2 , X TH 

16 




17 

2$: 

TST 

backup 

18 


BPL 

start 

19 


ASHC «-l*R2 

20 


BIC 

8 3 » R 3 

21 


MOV 

R3.SHIFTL 

22 


MOV 

R2.SHIFTH 

23 




24 

Starts 

MOV 

XLBUF (R5) * R 3 

25 


MOV 

XHBUF (R5 ) *R2 

26 




27 


TST 

BACKUP 

28 


BPL 

1$ 

29 


SUB 

ShIFTL *R3 

30 


SBC 

R2 

31 


SUB 

SH I FTH *R 2 

32 




33 

IS: 

MOV 

R3.STARTL 

34 


MOV 

R2.STARTH 

35 


MOV 

R3.STOPL 

36 


MOV 

R2.STOPH 

37 




38 


ADD 

xtl*stopl 

39 


ADC 

STOPH 

40 


ADD 

XTh*STOPH 

41 




42 


TST 

xdir 

43 


BMI 

2S 

44 


SUB 

RAMP»R3 

45 


SBC 

R2 

46 


BR 3* 

47 

2 $! 

ADD 

Ramp • R3 

48 


adc 

R2 

49 

3 $t 

MOV 

R3.XGOL 

50 ! 


MOV 

R2.XGOH 

.51 . 




152 


MOV 

YLBUF ( R5) »ygol 

53 


MOV 

YHBUF (R5) * YGOH 

54 


jSr 

PC.DMOVE 

55 


MOV 

nlines*lcount 

56 


MOV 

XDIR * VECTOR 

57 


RTS 

PC 


*R5 IS NScANS COUNTER 

•OFFSET WILL BE ZERO UNLESS.... 

t Raster Scan is being done 

; THEN THE DATA POINTER WILL BE 
t DISPLACED BY NPOInT wORdS 

•GET X-TraVEL.*.. 

•POS OR NEG MOVE? 
sBR IF POSITIVE 

jMAKE travel distance negative 

j AND STORE IT 


:IS BACKUP DESIRED? 
i IF NOT * BRANCH 
iDIVIDE X-TRAVEL BY 2 
tBE Sure lT!s DIVISIBLE BY 4 
j store the result 


•Get X-STaRT COORd 


•IS BACKUP DESIRED? 

! I F NOT* BRANCH 

tSuaTRACT the shift to get 
• the desired starting cooRd 


jSToRE X-START 


s get X.SToP by adding X-tRAVEL 

s TO X*START 


•IS IT A POSITIVE MOVE? 

: IF NOT* BRANCH 

jSubTract standoff distance 

* FROM X-START 

tADD Standoff for neg move 
sstore destination coord 


•get Y-STaRT coord 

: MOVE TO STARTING POSITION 
•PUT nlines in counter 
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SCAN MACRO VR®5A 10~A PR~?4 ®1*3q PAGE 
scan one line 

1 .Sbttl scan one line 

2 


3 xsc A n i 

MOV 

PASS ° a 9 MODE 

4 

CLR 

offset 

5 

TST 

PAT 

6 

beq 

1* 

7 

CMP 

VECTOR oXdIR 

8 

BEQ 

1* 

9 

MOV 

ST oPL o R 3 

10 

MOV 

STcPHoRS 

11 

CMP 

f!^l oPaTERN 

12 

bne 

2* 

13 

mo V 

pasS^b^mode 

14 

mQv 

CNTDwn «OFFSeT 

15 

BR 2* 

16 1*8 

MOV 

STaRTL»R.3 

17 

MOV 

ST aRTh»R? 

18 



19 

MOV 

» 1 0 » R 1 

20 

JSR 

PC oLDVAL 

21 



22 

MOv 

SPEEDsSTaT 

23 

TST 

vector 

24 

bmi 

3* 

25 

BIS 

POSX *stat 

26 

MOV 

al@24@l t MOTEMP 

27 

BR 4$ 

28 3*j 

BIS 

negx »stat 

29 

MOV 

S4?401 .MOTEMP 

30 



31 4* ; 

MOV 

©60 t R 1 

32 

JSR 

PC .RDVAL 

33 

SUB 

YgoL ?R 3 

34 

BPL 


35 

neg 

R3 

36 

CMP 

R3.41 

37 

bgt 

4 * 

38 



39 

MOV 

©DATA i R2 

40 

ADD 

OFFSET *R2 

41 

MOV 

NPOINT »R.3 

42 

MOV 

deltax *drnb 

43 

INC 

limits 

44 

MOV 

SW lTCH»DRllA 

45 

MOV 

PSW’TEMP 

46 

SPL 

6 

47 

MOV 

STaT»mOToRS 

48 

p4 0 

« 2 4 a 

49 

MOV 

MOTEMP « MOTORS 

50 



51 

tstb limits 

52 

bpl 

• & 4 

53 

RTS 

PC 


6 


•TRANSFER INSTRUCTION FOR FORWARD SCAN 

•EDGE OR raster? 

•BR IF EDGE 

•forward oR reverse scan? 

■BR IF FORWARD SCAN 
i "STOP** IS START OF REVERSE 
£ SCAN 
sRASTer scan? 

•BR IF BOUSTROPHEDONIC 
•REVERSE DATA TRANSFER DIRECTION 

• AND LOAD OFFSET 

jNORMAL START ON FORWARD 
j Scan 

jINDICATE X -LOWER LIMIT 
sLOAD OCRS LIMIT REGISTER 

•put motor speed in control word 

jPOS OR NEG SCAN? 

•BR IF NEG 

•SET ThE POS-X DRIVE bIT 
5 SET Y AUTLOK 

•SET The nEG-X DRIVE rIT 
•SET Y AUTOLOK ON 

• indicate y-*display Register 

: GET CURRENT Y*cOORD 
tCOMPUTE distance from y-target 

j BR IF NON-NEG 

•make it POSITIVE IF NECESSARY 
•is it within one micron? 

•LOOP IF IT ISN’T 

•data buffer pointer 

jPOINT To top of buffer if raster scan 

•NO. OF POINTS 

•set n for divide-by^n 
•clear X“lIMIT flags 
: BE SURE switch IS CORRECT 
jSAvE oLd STATUS WORD 
j m ask clock pulses 

sTURN MOTOR ON 

: GI VE MOTORS TIME TO READ SPEED 

•TURN ON Y AUTOLOK. LEAVING X MOTORS ON 

: I S LOWER LIMIT FLAG SET? 
tWAlT FOR IT 
{RETURN TO EXEC 
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scan Macro VRa5 a 10-Apr*7 4 0i:3q page 7 

MOVE TO NEXT scan LINE 


1 

9 

.SBTTL MOVE TO NEXT SCAN LINE 

c. 

3 NEXTLN: 

TST ydir 

{WHICH DIR IS Y-STEP? 

4 

SMI 1$ 

s BR IF NEG 

5 

ADD DELTAY*YgOL 

• next line is at y+dy 

6 

aoc ygoh 


1 

BR 2* 


8 Its 

SUB DELTAYtYGOL 

{Subtract dy for neg step 

9 

SBC YGOH 


10 



11 .2$; 

TST PAT 

{RASTER OR EDGE SC AN? 

12 

BPL 3$ 

•BR IF EDGE 

13 

COM VECTOR 

{CHANGE TRACING DIRECTION 

14 

JSR pc,go.y 

•ONLY Y a MOVE REQUIRED FOR RASTER 

15 

RTS PC 


16 3$: 

jSr pc.flybak 

{Flyback also needed if edge 

17 

rts pc 

•return to exec 

18 



19 



20 



21 



22 



23 



24 

.sbttl completion of 

frame scan 

25 



26 EndScn: 

CMP R5 * NSC ANS 

•have we scanned all frames? 

27 

BEQ 1$ 

•IF SO* EXIT 

28 

TST (Rs) + 

•INC R5 BY 2 

29 

jMP START 

{Scan another frame 

30 



31 1* r 

TST TFLAG 

•was this a real run? 

32 

BPL 2$ 

{IF NOT* FILE WaS NEVER OPENED 

33 

JSR R5, ©DEVICE 

{CLOSE DATA FILE 

34 

4 


35 2$ 2 

JSR PC. HOME 

•MOVE TO THE ORIGIN 

36 

CLR CBLOCK 

•BE SURE COMMENT FLAG IS DOWN 

37 



38 

TST ($P) + 

•POP EXEC RETURN ADDRESS 

39 

rTS PC 

! And return to monitor 

40 



4l 



42| 



43 



44 



45 

, SBTTL move carriage 

To the origin 

46 



47 home: 

CLR TFLAG 

{THERE IS NOT AN OPEN FILE 

48 

CLR XGOL 

{SET ORIGIN AS DESTINATION 

49 

CLR XGOH 


50 

CLR YGOL 


51 

CLR YGOH 


52 

JSR PCtDMOVE 

•MOVE TO ORIGIN 

53 



54 

TSTB TPS 


55 

BPL • *4 


56 

MOV #7 . T PB 

{RING THE BELL.l 

57 

rts pc 
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SCAN macro VRfl5A 10->APR“?4 0 1?3 q PAGE 8 
MOVE ROUTINES 


1 a sbttl move routines 

2 


3 

GO a X l 

MOV 

86(3 00 » MOTORS 

4 


JSR 

PC ®RDXY 

5 


MOV 

«XmOVE»R0 

6 


JSR 

PC ,M0V5ET 

7 


MOV 

« 7401 , AUTO 

8 


BR MOVCHK 

9 




10 

GOJ * 

MOV 

86000 ^MOTORS 

11 


JSR 

PC ® RDX Y 

12 


MOV 

82401 * AUTO . 

13 


C OM 

AUTOWT 

14 




15 

MOVE * Y * 

MOV 

8 YmOVE ®R0 

16 


JSR 

PC * MOV5ET 

17 




18 

MOVCHK l 

tst 

R0 

19 


beq 

ALOK 

20 




21 

MOVE 8 

MOV 

SWlTCH«DRllA 

22 


MOV 

5TaT ® MOTORS 

23 


MOV 

8^1 v T eMP 

24 


MOV 

0401 ^LIMITS 

25 




26 

MOV * W i 

BIT 

8 1 $ S W R 

27 


bne 

PANIC 

28 


DEC 

temp 

29 


BEQ 

PANIC 

30 


Bit 

R 1 * L IMI TS 

31 


beq 

MO V » W 

32 




33 

ALOK t 

MOV 

8 1 0 TEMP 

34 

IS* 

MOV 

8401 ’LIMITS 

35 


MOV 

AUTO ’MOTORS 

36 


TST 

AUTOWT 

37 


bmi 

2$ 

38 


BIT 

Blfl0 ’LIMITS 

39 


BEQ 

• ^6 

40 

2 $ 2 

bit 

840000 sL IMITS 

41 


BEQ 

• “"ft 

42 


DEC 

TEMP 

43 


BPL 

1$ 

44 


CLR 

AUTOWT 

45 


rts 

PC 

46 




47 

PANIC 5 

MOV 

86@00 , MOTORS 

48 


MOV 

84@1 ’LIMITS 

49 

1$ i 

BIT 

8 1 , SwR 

50 


BNE 

1% 

51 


BIT 

82(3 * SwR 

52 


BEQ 

DMOVE 

53 


JMP 

thud 


•TURN OFF AUTOLOK 

• GET CURRENT COORDINATES 
S INDICATE X SETUP 

•SET UP X MOVE 

* SET AUTOLOK FOR X AND Y 


sTURN off AUTOLOK 

i SET AUTOLOK FOR Y 
•WAIT FOR Y AUTOLOK OnLY 

•INDICATE Y SETUP 


j CHECK FOR AUTOLOK MOVE 
2 BR IF AUTOLOK ONLY 

! BE SURE SCALE iNCR SWITCH IS CORRECT 
2 TURN MOTOR ON OR CHANGE SPEED 
•RUNAWAY TIMER 

sCLEAR limit flags 

jHAS SWITCH 0 BEEN SET? 

•IF SO, ABORT 

•runaway timer 

: I F IT REACHES 0* lT!S A RUNAWAY 
•TEST FOR LOWER LIMIT FLAG 
SLOOP TIL IT’S FOUND 

t use Temp as pass counter 
sCLEAR limit flags 
•Turn on AUTOLOK 
;Y ONLY OR BOTH AUTOLOKS? 

2 1 F ONLY Y AUTOLOK ON 
i TEST FOR XUL FLAG 
•LOOP UNTIL I T ’ S SET 

!D0 The Same for the yul flag 

•when BOTH ARE SET, YOU’RE THERE 

•DEC pass counter 
•,make pnd pass 

! CLE AR AUTOLOK DIRECTION FLAG 


jTurn the motors off 

s CLEAR The LIMIT FLAGS 
•WAIT UNTIL SWITCH 0 IS RESET 

•has Switch 4 been set? 

•IF NOT * RESUME 5C AN 

•switch 4 means abort move 
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sc an 

MOVE 


MACRO VR05A 10-APR-74 ®i:3q PAGE 

routines 


1 DMOVF: 

MOV W6000*MOTORS 

2 

jSR PC •ROXY 

3 

MOV »XmOVE*R0 

4 

MOV 07401 * AUTO 

5 

JSR PC * MO V SET 

6 

TST R0 

7 

bEq M0VE*Y 

8 

MOV STAT*mOTEMP 

9 

MOV OYmOvE*R0 

10 

JSR PC*M0VSET 

11 

tST R0 

12 

6NE M0VE2 

13 

MOV L0lIMX*R1 

14 

bR move 

15 

16 MOVE? r 

MOV SWlTCH*DRllA 

17 

MOV 04al*LlMlTS 

18 

BISF3 STAT + 1»M0TEMP + 1 

19 

BlC 02000, MOTEMP 

20 

mOV STaT»mOToRS 

21 

MOV MOTEMP * MOTORS 

22 

23 

MOV »-i *temp 

24 1$; 

bit Ol , SWR 

25 

bne panic 

26 

dec temp 

27 

beq panic 

28 

tstb limits 

29 

BPL 2$ 

30 

BlC 014 237 7 * MOTEMP 

31 

bis tt500i* motEmp 

32 

MOV MOTEMP *M0T0R5 

33 

bR mov.w 

34 2%t 

tst limits 

35 

bpl is 

36 

Bit 0 34 377 * MOTEMP 

37 

Bis 024 0 1 * MOTEMP 

38 

mOv motEmp *moTorS 

39 

mOV LOLlMXtRl 

40 , 

JMP M0VW 

41 

42 FLYBAK 

{ JSR PC.RDXY 

43 

MOV OYmOVE*R0 

44 

jSR PC*MOVSET 

45 

tst xdir 

46 

bmi is 

47 

MOV NEGX*mOTEMP 

48 

bR 2$ 

49 ' l$t 

MOV posx*motemp 

50 2$s 

movb rtnspd »motemp 

51 

MOV 024 01 * AUTO 

52 

COM AUTOWT 

53 

TST R0 

54 

BNE M0VE2 

55 

MOV M0TEMp*STAT 

56 

MOV LOLlMX*Rl 

57 

JMP MOVE 


9 


! TURN OFF AUTOLOK 
{INDICATE X SETUP 

•set autolok for x and y 


t IF XMOVE length ZeRO*MOVE ONLY Y 
:Save x motor command 
{Indicate y setup 


;BR IF YMOVE NOT ZERO LENGTH 
{SET MASK FOR XlL FLAG 
•MOV ONLY X coordinate 

•be sure scale INCR SWITCH is correct 
•clear limits 

•SET Y TRAVEL bits IN XWORD 

{CLR Y-SPEED BIT 5Y-SPEED SeT BY STAT) 

•TURN ON Y MOTOR 

{TURN ON X MOTOR* LEAVING ON Y 

•initialize runaway timer 

{CHECK RUNAWAY SWITCH 

•RUNAWAY TIMER 

{TEST FOR X LOWER LIMIT 

•branch if NOT found 
•clear X*dIR and speed BITS 
•X*AUToLOK bits 

•TURN ON X-AUTOLOK 

•test for y lower limit 

{BRANCH IF NOT FOUND 
{CLEAR Y*DIR AND SPEED BITS 
•y-aUToLok bits 

•TURN ON X-AUTOLOK 
t MOV • W LOOKS FOR BIT TEST IN Ri 


•pick up current coordinates 
•set up the y-move 

•negative scan means positive return 

{SET NEGATIVE MOVE BITS 

•SET POSITIVE MOVE BITS 
•SET UP X-MOTOR SPEED 
•SET AUTOLOK FOR Y 
: Y AUTOLOK ONLY 

•R0r0 IF Y-MOVE IS AUTOLOK ONLY 
•IF LONG Y MOVE* DO DOUBLE MOVE 
•SINGLE MOVE MOTOR CONTROL WORD 

{MOVE X ONLY 
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scan macro vr®5a Apr ^74 0u3q page 10 
setup for move 

1 * SBTTL setup for move 

a 

3 S R 0 MUST point to xmove or ymove 


4 


5 

MOVSET 5 

clr 

MOvDIR 

6 


MOV 

4 *R0> *R3 

7 


MOV 

6{R0 J ,R2 

8 


MOVB 1$ (R0 ) * R 1 

9 


jSr 

PC oLDVAL 

10 


SUB 

< Ra ) 5R 3 

11 


SBC 

R2 

12 


SUR 

2 { R 0 ) ,R2 

13 


BMi 

NEGMOV 

14 


rne 

POSMOV 

15 


tst 

R 3 

16 


bne 

POSMOV 

17 

ZERET: 

CLR 

R 0 

18 


RTS 

PC 

19 




20 

negmov : 

MOV 

10 fR 0 ) »STAT 

21 


JSR 

pc , negate 

22 


COM 

mowdir 

23 


BR spdtst 

24 




25 

posmov : 

MOV 

1 2 f R 0 j *ST AT 

26 




27 

SPnTST ! 

MOV 

R5*-lSP) 

28 


JSR 

PC tSPDSEL 

29 


MOV 

* RS ) *R1 

30 


MOV 

(SP>+,R5 

31 


CMP 

R4 9 4 5 

32 


BEG 

ZERET 

33 


SUB 

Rl , R 3 

34 


SBC 

R2 

35 


SIC 

a 3 , R 3 

36 


TST 

MOvDIR 

37 


BPL 

is 

38 


jSr 

PC , NEGATE 

39 

1$ • 

add 

< R 0 ) * R 3 

40 


adc 

R2 

41 


ADD 

2 (R0) ,R2 

42 




43 


movr 

SwCSPD(R4 ) ,STaT 

44 


MOVr 

14 < Ra ) * r 1 

45 


jsr 

PC ,LDVAL 

46 


MOV 

20 fR0) ♦ R 1 

47 


RTS 

PC 

48 




49 




50 

signal i 

CLR 

dbns 

51 


MOV 

«6a00 , motors 

52 


MOV 

T0CKS,T0CS 

53 


jSr 

PC , DELAY 

54 


BIT 

420? SWR 

55 


bne 

• +4 

56 


RTS 

PC 

57 


JMP 

ZAP 


-0 means POS move 
•lo half of destination coord 
1 h i half of destination coord 
•select proper dcrs upper limit 

:SET DESTINATION AS UPPER LIMIT 
•subtract current coord to get 
: length of move 

:BR If RESULT IS NEGATIVE 
!BR IF LARGE POSITIVE NUM 
sis IT A ZER O^LeNGTH MOVE? 
i IF NOT » branch 
:INDICATE 2erO MOVE 
: I F SO, return 

•Set "nEG MOV” bit 

sMAkE MOVE LENGTH POSITIVE 

!"1 FOR NEC MOVE 


•set m pos mov” bit 

•save r5 on the stack 
^select optimum speed 
j Put the ramp In Ri 
sResTore ns 

! check for auTolok move 
: If AUTOloK move* R4S5 
iSubtract Ramp from length of move 

!MAkE sure MoVLeN divisible by 4 
JWHICH DIRECTION DOES MOVE GO? 

sBR if positive move 

jNegate move length if move neg 

sADD MOVLEN to CURRENT COORDINATE 
: To GET MOTOR CuTOfF POINT 


j Move speed to motor status 

: SELECT LOWER LIMIT ReG 

i SET LOWER LIMIT REG 

• IDENT iF Y LOwER LIMIT FLAG BIT 


jTurn off div~by*n Interrupt 

sTURN MOTOR OFF 

tSET UP proper delay counter 
iGlvE MOTOR TIME To STOP 

*is switch 4 set? 

t IF SO, ABORT SCAN 
iOTHERwISE* RETURN TO EXEC 
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scan Macro vr«5a i0-apr*74 page 14- 

paRameter storage 


.sbttl parameter storage 




4 

Xnowl: 

X MOVE * 0 


. 0 

5 


a 

SXNOWH 

! 2 

6 

xgoLJ 

0 


; 4 

7 

xgoh* 

a 


! G 

8 

NEGX1 

U4000 


* 10 

9 

posx: 

104000 


! 12 

10 


.BYTE 10*0 

:xlIms 

s 14 

11 


1 0 0 

iuplimX 

*16 

12 

lolimx: 

200 


:20 

13 


?0 

; xdI S p 

s 22 

14 

XRAMPSJ 

7932* 


*24 

15 


2 0j f>* 



16 


592* 



17 


264 • 



18 


108* 




THESE ADDR # S MUST REMAIN 

intact and in THIS order 


20 • * >* * + * + 4 **t ***************** +**********+********+************** ****** 


1-2 • 


21 

ynowl ! 

ymovej 0 

* 0 

22 


g :YnOWH 

* 2 

23 

YgOL* 

0 

♦ 4 

24 

YgoHJ 

0 

i 6 

25 


12000 ?NEGY 

sl0 

26 


22000 JPOSY 

1 12 

27 


.BYTE 80*40 ♦ Y L I MS 

; 14 

28 


40000 suplimy 

! 16 

29 

lolImy: 

100000 

{20 

30 


*0 JYDISP 

*22 

31 

YRAMPSt 

ft30. 

! 24 

32 


232. 


33 


74. 


34 


35. 


35 


12 . 


36 


6. 


37 

I*************************** * * * * 

38 




39 




40 




41 

swcSPd: 

.BYTE p55 . *128 * *64. *32* 

* 16 • 


These addr*s must remain 

INTACT and in THIS ORDER 
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SCAN macro VR05A 10-APR-74 01*3g PaGE 12 
PARAMETER storage 


1 

R AMP 8 

100. 

2 

AUTOS 

0 

3 

AUTOWTS 

0 

4 

P ASS • A S 

0 

5 

P ASS « B • 

0 

6 

modes 

0 

7 

CNTDWN 2 

0 

a 

OFFSET ; 

0 

9 

MOTEMP t 

B 

10 

VECTOR S 

B 

11 

5HIFTLS 

0 

12 

SH1FTHS 

0 

13 

STaRTLS 

0 

14 

STaRThs 

a 

15 

SToPLj 

0 

16 

SToPHs 

0 

17 

XTL 2 

0 

18 

xth; 

0 

19 

lcounts 

0 

20 

STaT s 

0 

21 

RTnspd; 

0 

22 

NPuLSE : 

1 

23 

switch; 

• Byte 

24 

Source i 

0 

25 

DSP; 

0 

26 

Pat : 

0 

27 

LREP s 

0 

28 

temps 

0 

29 

T OCKS i 

0 

30 

TFLAGS 

0 

31 

movdir i 

0 

32 

dbnInt: 

RTI 

33 



34 


.end 


ERRORS DETECTfcDJ 0 
FREE CORES 1228*. wORqS 
•SCAN-L2/NL S T TM * S Y M : B I N ! LOC <SC AN 
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uu 

uu 

uu 

uu 

uu 

uu 

uu 

uu 

uu 


uu 

uu 

uu 

uu 

uu 

uu 

uu 

IJU 

uu 

uu 


UUUUijUUUUUoU 

UUUUUUuUUu 


TTTTTTTTTTTT 

tttttttttttt 

tt 

tt 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 


IlHlUl 

LL 

IIIIIIII 

LL 

II 

LL 

II 

LL 

II 

LL 

II 

LL 

II 

LL 

II 

LL 

II 

LL 

II 

LL 

IIIIIIII 

llllllllllll 

IIIIIIII 

llllllllllll 


TTTTTTTTTTTT YY YY 

TTTTTTTTTTTT YY YY 

TT YY YY 

TT YY YY 

TT YYYY 

TT YY 

TT YY 

TT YY 

TT YY 

TT YY 

TT YY 

TT YY 


11 

0000000(100 

111 

000000000000 

.ill 

00 

000 

11 

00 

0 00 

11 

00 

0 00 

11 

00 

0 00 

11 

00 

0 00 

11 

00 

0 00 

11 

00 

0 00 

11 

000 

00 

llllll 

000000000000 

llllll 

0000000000 


******** 

**♦+*+** 


AAAAAAaAAA 
AAAAAAA AAA AA 
A A A A 

AA AA 

AA AA 

A A A A 

AA aa 

A AAA AAA aA Aa A 

a a Aa aaa aaa aa 

AA AA 

aa aa 

A A A A 


PPPPPPPPPPP 

PPPPPPPPPPPP 

PP pp 

PP PP 

PP PP 

PPPPPPPPPPPP 

PPPPPPPPPPP 

PP 

PP 

PP 

PP 

PP 


rrrrrrrrrrr 
rrrrrrrrrrrr 
RR RR 

RR RR 

RR RR 

RRRRRRRRRRRR 
RRRRRRRRRRR 
RR RR 
RR RR 

RR RR 

RR RR 

RR RR 
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UTILTY MACRO VRflSA I 0 -APR */4 
TABLE OF contents 


2 - 1 aSCxI*TO-rINARY DECODING 

4_ t CHOOSE OPTIMUM MOTOR SPEED 

4. Z\ negate DOUBLE precision number 

4* 3g PAUSE TO LET MOTORS STOP 

5 - 1 read char FROM keyboard 

5 - 34 send message to teleprinter 

6 * 1 READ COORDINATES FROM DCRS 

3 ;? LOAD COORDINATE INTO dCRS 

7- i DECODE ASCII INTO BINARY 

a- 1 encode binary into bcd 

8 - 45 GET CURRENT x*Y COORDINATES 

9- 1 display data on terminal 

1 0 _ ! parameter storage 
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UTILTY MACRO VR05A 10-APR-?4 #1 S4f| PAGE 1 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 


.title UTILTy 

1 22 JANUARY 1974 

. GLOBL RDASc*RDASC2*RDCHAR*cRLF *TOOLrG*eRA ,NPOlNT *KEY 
.GLOBL lstchr * sign, negok, negate » mesa ge>crt,mflag* temp 

.GLOBL RDvAL,LDVAL,RDXY*xNOWL*YNOWLtSWCSET,SPDS£L*MON 
.GLOBL DELAY,DSPiXMOVE*VELSEL*TOCS*DATA 
.MCaLL •BIN2d**PARaM 

.param 

dCBUF =167030 
DCSTAT=16703fe 
5PACE=40 
M lNUS-^5 
RUBOUT = 177 

.MACRO MSG TEXT 
JSR R5,MESAGE 

.ASClZ <CR> <LF>/TExT/<CR><LF> 

.even 
.endm 

.macro print string 
MOV R0,-JSP) 

MOV »STRING*R0 
TSTb tR0> 

BEQ . + 16 
TSTb TPS 

bpl #*4 

MOVB ( R 0 J f * TPB 
BR .‘■lft 
jSR PC,CRLF 
MOV (SPJ+.R0 


•OCRS BCD READ/WRITE REGISTER 
; DCRS CONTROL REGISTER 


34 .endm 

35 

36 .MACRO ECHO CHAR 

37 TSTB TPS 

38 BPL .-4 

39 MOVR CHAR*TPB 

40 .endm 

41 

42 .MACRO ECH03 CHAR 

43 ECHO »•/ 

44 ECHO CHAR 

45 ' ECHO #«/ 

46 .Endm 


\ 
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UTILTY MACRO VR05A 10«APR**74 9is4fl PAGE 2 
asc n - to^binary decoding 


R DA SC i 


1 

2 

3 ROASC 2 S 

4 

5 

6 

7 RDASCs 

8 

9 SI; 

10 

11 NEwNUmS 

12 

13 

14 

15 

16 

17 read: 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 1$: 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 2$; 

45 

46 

47 

48 

49 

50 3*5 


sbttl ascii-to-binary decoding 


MOV » 6 ,CHRLIM 
MOV tt-1 * DP 
BR SI 

MOV »5»CHRLIm 
CLR DP 

MOV «1,LSTCHR 

C.LR R4 
CLR BUF 
CLR BUF + 2 
CLR BUF+4 

clr Sign 

jSR pc.rdchar 
CMP R1,8CR 

beq xcr 

CMP R1,«LF 

beq xlf 

CMP R1,«SPACE 

beq xsp 

CMP R1,«RUB0UT 
BEQ 2$ 

CMP Rl,«2^ 

BNE 1$ 

ECHO «136 
ECHO 4 3 25 
jSr pc,crlf 
BR NEWnUM 

CMP Ri,«MlNUS 
BNE TStCHR 
TST negok 
bpl badchr 

TST R4 

bne badchr 
tst sign 

BMI BADCHR 
com Sign 
BR READ 

□ EC R4 
bpl 3$ 
tst sign 
bpl newnum 

ECH03 8 MINUS 

bR newnum 

ECH03 rUF ( R4 } 
CLRR BUFJR4) 

BR read 


jLong number entry point 


•.short number entry point 


jCHaR counter 


•put char in ri 

•IS IT A CARRIAGE RETURN? 

; I S IT A LINE Feed? 

; IS IT A SPACE? 

; IS IT A RUBOUT? 

: IS IT CTRL/U? 


: ECHO tu 

•IF SO, GO TO A New line 
• and start over 

•IS IT A MINUS SIGN? 

sir not* branch 

i IS NEG NUM ALLOWED? 

; I F NOT* PRINT ERROR MSG 
? IS IT FIRST CHaR? 
s IF NOT* ERROR 

•HAS MINUS ALREADY BEeN TYPED? 

•IF SO, ERROR 
•SIGN2-1 MEANS nEG NUM 
! GET FIRST DIGIT 

; UNCOUnT the preceeding char 
•br unless That was first digit 

iHAD MINUS PREVIOUSLY BEEN TYPED? 

; IF NOT* START OVER 
•IF SO, ECHO /-/ 

; and then start over 

•echo deleted char between slashes 

•clear DELETED CHAR 
i GET ANOTHER ChaR 
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utilty macro vr»5a 10-apr-Zu 0i;4« 

ASCII-To-BINARY dECOOInG 


1 

TSTCHR! CMP 

R1 

2 

BLT 

BADCHR 

3 

CMP 

Rl*»7i 

4 

BGT 

BADCHR 

5 

CMP 

R4 t CHRL I M 

6 

beq 

TOOBIG 

7 



8 

MOVE? 

i R 1 1 BUF ( r4 J 

9 

INC 

R 4 

10 

bR read 

11 



12 

XSPi dec 

LSTCHR 

13 

xlf ; dec 

LSTCHR 

14 

xcr: nop 


15 

jSr 

PC » DECODE 

1 6 

clr 

NEgOK 

17 

RTS 

PC 

18 



19 



20 

TOOBIG! TST 

ISp) + 

21 

TOOLRGi MSG 

<ToO BlG> 

22 

JMP 

0ERA 

23 



24 

BadChr; mSg 

WHAT? 

25 

TST 

( SP ) + 

26 

JMP 

fflER A 


page 3 


tAT LEAST ASCII ZERO? 
{NOT ABOVE ASCII 9? 
sTOO MANY CHARS? 


{STORE CHAR IN BUFFER 
•POINT TO NEXT BUFFER LOC 
{GET NEXT CHAR 

t-1 MEANS SPACE 
J 0 MEANS LF 
{♦1 MEANS CR 

•CONVERT ASCII TO binary 
{RETURN TO CALLING ROUTINE 


:Pop The rts address 

• GO TO ERROR RETURN A DDR 


•pop the rts addR 

•GO TO ERROR RETURN ADDR 
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UTILTY MACRO VR«5a 10-APR-74 PAGE 4 

Choose optimum motor Speed 

1 .sbttl choose optimum motor speed 

2 


3 

SPdSEL! 

CLR 

R 4 

•ASSUME all sPEfDS VALID 

4 


MOV 

»4,Rl 

. ‘INITIALIZE DELAY COUNTER FqR Y 

5 


CMP 

R0, «XMOVE 

•IS IT AN X-MOVE? 

6 


hne 

VI 

•branch if ymove 

7 

8 

velSel ! 

MOV 

SWCSET*R4 

•pick up switch setting 

9 


MOV 

*R1 

•initialize delay COUNTER For X 

10 

VI • 

MOV 

R4,R5 

•COPY R 4 

11 


A5L 

R5 

•change Rs To word offset 

12 


ADD 

R0 e R 5 

t R0 CONTAINS XMOVEs or ymove: 

13 


ADD 

424 * R 5 

:R5 now points to ramps list 

14 


TST 

R2 

sis IT a very long move? 

15 


bgt 

3$ 

•IF so, USE MAX allowed SPEED 

16 


MOV 

R3,~ (SP> 

•SAVE R 3 ON THE STACK 

17 


ASHC 

tt-1 *R2 

t DIVIDE MOVE LENGTH BY 2 

18 





19 

15: 

CMP 

R 3 * (R5 ) + 

•IS move longer than critical length? 

20 


BHIS 2* 

•if so, the pointer is set 

21 


ASR 

Rl 

•shorter delay for lower Speed 

22 


INC 

R 4 

•IF NOT* increment R4 

23 


CMP 

R4 v 45 

•have we gone Thru the list? 

24 


rLT 

1$ 

: IF NOT* CHECK the NEXT VALUE 

25 

2$: 

MOV 

( Sp) +,R3 

jRESTOrE R3 FROM ThE STACK 

26 


TST 

-<R5> 

{CANCEL last AUTO-INCREMENT 

27 





28 

3$ t 

rts 

PC 


29 





30 





31 


.sbttl negate double 

precision number 

32 





33 

NEGATE: 

neg 

R2 

: THl S ROUTINE NEGATES THE 

34 


neg 

R3 

• double word integer 

35 


SBC 

R2 

: CONTAINED In R2 . l HlGH> 

36 


RTS 

PC 

• AND R 3 5L0W) 

37 





38 





39 


.sbttl PAUSE to let 

MOTORS STOP 

40 





41 

delays 

MOV 

TICS ‘CLOCK 


42 

1$: 

MOV 

TOCS *R0 


43 


DEC 

R0 


44 


bgt 

• 


45 


SUB 

*fl. CLOCK 


46 


bgt 

1$ 


47 


RTS 

PC 
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UTILTY MACRO VR05A 10-APR-7a 0i:4& PAGE 5 

read char from keyboard 


1 .sbttl read char from keyboard 

2 


3 RdcHAr: 

CLR TKS 

•DISABLE INTERRUPT 

4 

TSTr TkS 

jHAS KEY BEEN HIT? 

5 

BPL •*4 


6 

MOVB tkb*ri 

: MOVE CHAR To R1 

7 

BlC «l77600»Rl 

iREnUCE IT To 7-BIT ASCII 

3 

CMP R1,»CR 

•IS IT A CARRIAGE RETURN? 

9 

beq crlf 


10 

CMP R1*»LF 

♦IS IT A LINE FEED? 

11 

beg crlf 


12 

CMP Rl*»3 

•IS IT CTRL/C? 

13 

BEQ 1$ 


14 

ECHO R 1 

•echo the char 

15 

bR enable 


16 



17 1$! 

TST MFLAG 

•is request from MONITOR? 

IB 

bMI enable 

•if so, use normal Return 

19 

echo w 1 36 


20 

ECHO «103 

•OTHERWISE* ECHO tc 

21 

JMP MON 

! And GO DIRECTLY to MONITOR 

22 



23 KEYS 

MSG <type any key TO 

CONTINUE > 

24 

J5R PC, RDCHAR 


25 



26 CRlFS' 

ECHO #CR 


27 

ECHO «LF 


28 



29 enable: 

MOV »100>TKS 

•ENABLE KB-lNTERRUpT 

30 

RTS PC 


31 



32 



33 



34 

.SBTTL SEND MESSAGE 

to TELEPRINTER 

35 



36 mesAge: 

TSTB <R5i 

tALL CHARS PRINTED? 

37 

BEQ 1$ 

•IF SO, BRANCH 

38 

ECHO (R5)+ 

iPRINT THE CHAR 

39 

fiR mESaGF 

• AND GET THE NEXT oNE 

40 1$ i 

INC R5 

•POINT TO BYTE AFTER NULL 

41 

BIT »1,R5 

: IS R5 AN EVEN NUMBER? 

42 

BEQ 2* 

•IF SO, BRANCH 

43 

INC R5 

•If not* make it point to next 

44 

RTS R 5 

• word boundary 
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UTILTY Macro VR 05 A 10-APR-74 01J40 PAGE 6 
READ COORDINATES FROM DCRS 


1 

2 

3 RDVALs 

4 

5 

6 

7 

8 
9 

10 

11 It, 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 LOVAL: 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 1$. 

45 

46 

47 

48 

49 

50 

51 

52 

53 


.sbttl read coordinates from dcrs 


clr dcst.at 
Bis «l 00 *Rl 
MOV RI.DCSTat 
MOvB »1*DCSTaT+1 

tst dcstat 

BPL e*4 


! set ’’read* 1 bit 

*LOaD OCRS COMMAND register 

{SET "EXTERNAL" BIT 

•LOOP UNTIL **EXT MOD£m FLAG 

t IS SET 


CLR R4 

MOVB DC.BUF *BUFjR4) 
BlSa »ft0«RUF(R4} 
INC R4 
CMP R4.»6 

bne l$ 


*R4 IS PLACE INDICATOR 
{STORE BCD DIGIT 
{Change bcd to ascii 

{Have ft DIGITS BEEN READ? 

{If not* read another digit 


CLR SIGN 

MOVB OCBUF *SlGN {READ i FOR POS. 0 FOR NEG 

DEC 5IGN {Make it 0 for pos, -1 for neg 


CLR BUF+6 
MOV * DP 
MOV 06. R4 

jsr pc. decode 
clr dcstat 

RTS PC 


•indicate big num allowed 

{INDICATE 6 DIGIT NUMbER 

{Decode ascii into binary 
{Leave external mode 
•return to calling ROUTINE 


-SBTTl load coordinate into dcrs 


JSR R5.a4 4 
JSR PC. ENCODE 


:Save the registers on the stack 
{Convert binary to bcd 


CLR R0 
CLR DCSTAT 
MOV RI.DCSTAT 
mOvb Ol *DCST aT+ 1 
TST DCSTAT 
BPL .“a 


•R0 is digit pointer 
•loao internal register addr 

•SET ’’EXTERNAL" bit 

:Loop until »*ext mode m bit 

{ IS SET 


MOvb BUF(R0) .DCbUF 

INC R0 

CMP R0.O6 

bLT It 

INC SIGN 

mOvb sign. dcbuf 


{Load a digit 
•count the digit 
{Was That the &th digit? 
:IF not* load another 
: 0 FOR NEG* 1 FoR POS 
{LOAD THE SIGN 


CLR dcstat 

JSR R5,S)4ft 
RTS PC 


{LEAVE EXTERNAL M00E 
{RESTORE THE REGISTERS 
{RETURN To CALLING ROUTINE 
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utilty macro vr 0 5a 10-APR-74 0\J4 « page 7 

DECODE ASCII INTO BINARY 


1 .SBTTL DECODE ascii 

2 


3 

decode : 

MOV 

»BUF * aODR 

4 


CLR 

R2 

5 


clr 

R 3 

6 


CMP 

R4,»4 

7 


ble 

15 

8 


TSt 

DP 

9 


bmi 

4$ 

10 

1$! 

jSr 

PC iLOWNUM 

11 

25 s 

TST 

DP 

12 


BPL 

3$ 

13 


T5T 

sign 

14 


BPL 

35 

15 


JSR 

PC .negate 

16 

35 t 

RTS 

PC 

17 




18 

45 j 

INC 

ADdR 

19 


SUB 

05, R4 

20 


bEq 

55 

21 


INC 

ADDR 

22 




23 

55: 

JSR 

PC , lownum 

24 


MOV 

«BUF*R0 

25 


TSt 

R 4 

26 


bEq 

65 

27 


jSr 

PC.DlGlTft 

28 




29 

65: 

MOVB CR0)*R4 

30 


BIC 

4l777ft0 *R4 

31 


BEG 

25 

32 

75 : 

ado 

010000 • * R 3 

33 


ADC 

R2 

34 


SOB 

R4,75 

35 


BR 25 

36 




37 

D I G I T ft # 

MOVB (R0>f*R4 

38 


BIC 

Ol777ft0*R4 

39 


BEQ 

25 

40 

15 X 

ADD 

0103240 *R3 

41 


ADC 

R2 

42 


INC 

R2 

43 


SOB 

R4..15 

4f* 

25* 

rTS 

PC 

45 




46 

lownum : 

MOV 

addR*-(Sp> 

47 


MOV 

02 , * 1 SP ) 

48 


EMT 

42 

49 


B VC 

IS 

50 


add 

06, SP 

51 


jMP 

toobig 

52 

15. 

MOV 

(SP) + ,R3 

53 


TST 

(SP) + 

54 


rts 

PC 

55 





INTO BINARY 

•STORE THE BUFFER ADDRESS 
* R2 is high ORDER WORD 
:R3 IS LOW ORDER WORD 
: MORE THAN 4 ChaRS? 

•IF NOT* BRANCH 
jBIG num allowed? 

: IF SO, BRANCH 

•DECODE LOW ORDER DIGITS 

•big num allowed 

{IF NOT* EXIT 
•WAS NUM nEG? 
j IF NOT* EXIT 

•make number negative 


{START OF LOW 4 DIGITS 

iAre there 5 or 6 digits? 

• br if 5 

{Now it!s START of lo 4 digits 

•DECODE low 4 DIGITS 
{ADDR OF HIGHEST DIGIT 
{5 OR ft DIGITS? 

•BR IF 5 
• JSR IF 6 

{GET The 10*fj00«S DIGIT 
{CONVERT ASCII TO BCD 
•IF ZERO* DONE 
{OCTAL 23420 


•NOW WE’RE DONE 

•GET THE 100,000«S DIGIT 
•CONVERT ASCII TO BCD 
•IF ZERO* DONE 

{LOW 1ft BITS OF 303240 ( 1 00,00 0 .) 

•17TH BIT OF 3.03240 
•DO AGAIN IF NECESSARY 

• go to 10 « 000 ' s place decoder 

•macro expansion of the 

• *D2 B in Conversion from 

• ascii to binary 

{V set if out of Range 
•clear 3 words from stack 

{PRINT ERROR MESSAGE 
{NUM WAS RETURNED ON STACK 
{SO WAS STATUS WORD 
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UTILTY MACRO VR05A 10-APR-7a 01 :4 0 PAGE 8 
ENCODE BINARY INTO BCD 


1 


.sbttl encode binary 

2 



3 

encode 

: cLr buf 

4 


clr temp 

5 


clr sign 

6 


TST R2 

7 


BPL 1$ 

8 


COM SIGN 

9 


jSr pc, negate 

10 


TST R2 

11 

1$; 

REQ 6$ 

12 



13 


CLR R0 

14 

2$* 

SUB »l032 4 0*R3 

15 


SBC R2 

16 


DEC R2 

17 


BMI 3$ 

18 


INC R0 

19 


BR 2$ 

20 



21 

3$! 

MOVB R0*TEMP 

22 


add «1032 4 0»r3 

23 


ADC R2 

24 


INC R2 

25 



26 


CLR R0 

27 

4$ • 

SUB #23420, Rij 

28 


SBC R2 

29 


BMI 5$ 

30 


INC R0 

31 


BR 4$ 

32 



33 

5$ * 

MOVb R0*TEMP + 1 

34 


ADD #23420*R3 

35 


36 

6$ • 

.BIN2D BUF + 1 , R 3 

37 



38 


BIS TemP*RUF 

39 


BlC »l703ft0*(3UF 

40 


BIC 8l703ft0,BUF+2 

41 


BlC «l703ft0,BUF+4 

42 


rts pc 

43 



44 



45 


.sbttl get current x. 

46 



47 

RDxYl 

MOV »20*Rl 

48 


JSR PC , RDvAL 

49 


MOV R3.XNOWL 

50 


MOV R2,XN0WL+2 

51 


MOV 8 6 0 » R 1 

52 


JSR PC.RDVAL 

53 


MOV R3.YNOWL 

54 


MOV R2.YNOWL+2 

55 


RTS PC 


into bCd 


iTEST high order woro 

•BR IF NUM IS POSITIVE 

:SIgNS-1 for neg 

smake num positive 

sRETEST HIGH ORDER WORD 

: BR IF HIGH ORDER WORd IS ZERO 

iR0 IS COUNTER 

:LOW 1ft BITS OF 303240 <100.000*) 

il7TH BIT OF 30324 cj 

5 IP NEG* YOU ♦ VE GONE TOO FAR 

♦COUNT 

f and do it again 
tSToRE The digit 

iRESTORE the LAST 100,000. 


sTHEN go TO the 2ND DIGIT 
:SUBTRACT 10,000. 

tlF NEG* YOU * VE GONE TOO FAR 
•COUNT 

i and do it again 

: ST ORE the DtGIT 
•restore the last 10*000. 

•CONVERT BINARY To ASCII 

iInsert high order digit<si 

jCONVErT ASCII TO BCD 


COORDINATES 

jIndicaTe x-display Register 

}GET CURRENT X-cOORD 

! and store it 

jIndicate y-display register 
•get current y-coord 

: AND STORE IT 
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UTILTY Macro VR05A 10-APR-Ja 01 :4g PAGE 9 
display data ON terminal 


.sbttl DISPLAY data ON TERMINAL 


1 

2 


3 

CRt: 

TST DSP 

4 


BMI 5$ 

5 


COM DSP 

6 


MSG <display requested 

7 


J5R P C * K E Y 

8 

5${ 

jSR R5 , mes Age 

9 


.BYTE 33*14*0 

10 


.EVEN 

11 



12 


MOV Ml'LN 

13 


MOV npoint*temp 

14 


mOv »data*ri 

15 



16 


MOV ttifl.*R0 

17 

1 $: 

MOV »VbUF*R4 

18 


SUB R0.TEMP 

19 


BPL 2$ 

20 


ADO TEMP»R0 

21 



22 

2 $: 

JSR R 5 * q)44 

23 


• B In2D BUF»LN 

24 


jSR R5,S)4ft 

25 


JSR PC. FILL 

26 


MOV SPACES* (R4) + 

27 



28 

3$; 

mOv <Ri ) + * Value 

29 


JSR R5 f 5)4 4 

30 


. B I N2D BUF, VALUE 

31 


JSR R5*o)46 

32 


JSR pc, fill 

33 


SOS R0,34 

34 


CLR ( R 4 ) 

35 


PRINT VBUF 

36 



37 


CMP LN,O2q0. 

38 


BGT 44 

39 


TST TEMP 

40 


BLE 4$ 

41 


MOV «l 0 - *R0 

42 


add R0,ln 

43 


BR 1 $ 

44 

4$ : 

JMP KEY 

45 



46 

fill: 

CLR R2 

47 


MOV «4,R3 

48 

1 $: 

CMPB BUF.(R2) ,«60 

49 


BNE 2$ 

50 


MOVB «40*bUF(R2) 

51 


INC R2 

52 


SOB R 3 » 1 4 

53 

2 $: 

MOVB 4 4 0 * bUf f 5 

54 


MOV BUF * J R 4 ) +■ 

55 


MOV BUF + 2, ( R 4 ) + 

56 


MOV buf + 4 , t R 4 ) + 

57 


RTS PC 


•1ST request for DISPLAY? 
• if not * branch 
t HOI ST The flag 

jwait for key to be hjt 
•clear the CRT SCREEN 


•NO. OF *ST DATA POINT ON LINE 

•R1 POINTS To DATA WORD 

{DISPLAY 10 data pts per line 
•char buffer FOR DISPLAY line 
j points left after this line 

•IF NON*NEG * BRANCH 
: IF NEG* TRUNCATE THIS LINE 

•SAVE the registers 
: enc ode no- of ist pt. in line 
{RESTORE the REGISTERS 
: PUT RESULT in line buffer 
•put extra Spaces after pt- no. 

! GET data POINT 
{SAVE the REGISTERS 
jENCODE The data value 

: RE STORE THE REGISTERS 
i PUT data PT. IN LINE BUFFER 
•COUNT The point * get another 
: terminate the line 

•WRITE LINE on TERMINAL SCREEN 
{HAVE MORE ThAN 29 LINES 

: been written on terminal? 

jARE we OUT OF DATA? 

sIF NOT * SET UP ANOTHER LINE 

• and print it 

•return after keyboard char 


•IGNORE UP To 4 LEADING 2 ERoS 

tis IT ASCII ZERO? 

ilF NOT * THE REST IS SIGNIFICANT 

•IF SO* SUBSTITUTE A SPACE 

{POINT TO NEXT char 

i and Check IT 

{Add a padding space 

•STORE The EnCOoED DATA VALUE 

• IN The line BUFFER 
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UTlLrY MACRO VR05A 10-APR-74 0i:4g PAGE 1** 
PARAMETER storage 

1 .SBTTL PARAMETER STORAGE 

2 


3 

ADDR * 

0 


4 

sign: 

0 


5 

chrLim : 

0 


6 

lstchr : 

0 


7 

DPs 

0 


8 

NEGOK • 

0 


9 

CLOCK j 

0 


10 

Tics: 

40000 


1 1 

Toes: 

1 


1 2 

LN : 

0 


13 

VALUE: 

0 


14 

spaces: 

.byte 

40*40 

15 

vbuf: 

.BLKB 

76 • 

16 

buf : 

. BLK B 

fi • 

17 




18 


.END 



errors detected* 0 

TREE CORE* l236q. WORDS 
>uTIlTY.L2/NL:TTm*SYM*bIN:L0C<UTILTY 
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RKKKRRRRRRR eeeeeeeeeeee CCCCCCCCCC 
rrrrrrrrrrrr eeeeeeeeeeee CCCCCCCCCCCC 
RR RR EE cc CC 

RR RR EE CC 

RR RR EE CC 

RRRRRRRRRRRR eeeeeeee CC 

RRRRRRPRRRR EEEEEeEE cc 

RR RR EE CC 

RR RR EE CC 

RR RR EE CC CC 

RR RR EEEEEEEEEEEE CCCcCCCCCcCt 

RR RP EEEEEEEEEEEE CCcCCCCCCC 


0000000000 RRRRRRRRRRR DDDDODODDn 
000000000000 RRRRRRRRRRRR oDDDDODDDDD 
00 00 RR RR DO DD 

00 00 RR RR DO DD 

00 00 RR RR DO DO 

00 00 RRRRRRRRRRRR DO DD 

00 00 RRRRRRRRRRR DD DD 

00 00 RR RR DD DD 

00 00 RR RR DD DD 

00 00 RR RR DD DD 

000000000000 RR RR DDDoODDDGDD 

0000000000 RR RR DODnDDoDDD 


11 

0000ff00fi00 


A A A A A A A A A A 

ppppppppppp 

RRRRRRRRRRR 

1 11 

00a000000000 


aaAaaaaaaaaa 

pppppppppppp 

RRRRRRRRRRRR 

ll 11 

00 

00 0 


AA 

AA 

PP PP 

RR 

RR 

11 

00 

0 00 


A A 

aa 

PP PP 

RR 

RR 

11 

00 

0 00 


AA 

AA 

PP PP 

RR 

RR 

1 1 

00 

0 00 

******** 

AA 

aA 

PPPPPPPPPPPP 

rrrrrrrrrrrr 

11 

00 

0 00 

******** 

AA 

aA 

ppppppppppp 

RRRRRRRRRRR 

11 

00 0 

00 


AAAAAAAAAAAA 

PP 

RR 

RR 

11 

00 0 

00 


aaaaaaaaAaaa 

PP 

rR 

RR 

11 

000 

00 


AA 

aa 

PP 

RR 

RR 

111 Hill 

000000000000 


AA 

AA 

PP 

rR 

RR 

hi mil 

0000000000 


AA 

AA 

PP 

RR 

RR 
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RECORD MACRO VR 05 A IB-APR-Ja 0i:^0 
TABLE OF CONTENTS 


2- 

1 

device and function 

3. 

1 

OUTPUT ROUTINES 

6- 

1 

INPUT ROUTINES 

11- 

1 

device CONTROL ROUTINES 

12- 

1 

error processing routines 

1 2- 

3^ 

link and filename blocks 

13- 

1 

parameter storage 
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record macro vrbsa 10 -APR -74 01:40 page 1 


1 .TITLE RECORD 

2 ! 6 FEBRUARY 1 97 4 

3 

^ . GLOBL MES AGE ♦ I DHEaD *cBLOCK * RQCHAR *SeT0UN * 1 0 MODE * IDrUF 

5 .GLOBL DISK *TAPE*Np0InT»cRLF*IDC0DE*M0N,SERIES*NUM8ER 

6 .GLOBL ABC *NwORdS»oATa *IFLAG 

7 . MC ALL • INIT,.0PENI».0PEN0*.READ».WRITE*.WAIT*.CL0SE 

8 . MC ALL *RLSE , *RADPk * •BIN?0».BIN2D 

9 



ADDR 


TEXT 
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RECORD MACRO VR05A 10-APR-7a 01 :4fl PAGE 2 

device ano function 


1 .SBTTL DEVICE AND FUNCTION 


2 


3 

DISK J 

CLR DEVICE 

4 


MOV DK *DEV 

5 


bR func 

6 



7 



8 

tape* 

MOV 8*1 *OEVIcE 

9 


MOV MT.DEV 

10 



11 



12 

func I 

MOV (R5)+*R4 

13 


TST R4 

14 


BM I 1$ 

15 


JSR PC •aOUTPljT«R4) 

16 


RTS R5 

17 



18 


COM R4 

19 


CLR INDEX 

20 


JSR PC .SINPUT (RU ) 

21 


RTS R5 

22 



23 



24 

output : 

o.daTa 

25 


0 .OPEN 

26 


CLOSE 

27 


EOF 

28 


EOT 

29 


rewind 

30 


o.dati 

31 



32 



33 

INPUT! 

i. data 

34 


I • OPEN 

35 


I . OPNP 

36 


CLOSE 

37 


i . daTi 


•ZERO MEANS dISk 

•SPECIFY DEVICE FOR LINK BLOCK 


:-i means tape 

•USE MT DRIVER 


! GET FUNCTION CODE 
sOUTPUT OR INPUT 
! BR IF INPUT 

:Go To PROPER OUTPUT ROUTINE 

•return to Caller 

•make offset positive 

j go to proper input routine 
j return to caller 


•0 means data 
*2 MEANS open 
: 4 MEANS CLOSE 
j 6 MEANS endfile 
:10 means logical end of tape 
1 12 

*14 MEANS 1ST DATA BLOCK 


•0 means data 

:2 MEANS OPEN <PARaMS FROM KB> 
1 4 MEANS OPEN* READ PARAMS 
t 6 

•10 MEANS 1ST DATA BLOCK 
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RECORD MACRO VRg5A 10-APR-7u 0i:4fl PAGE 3 
output routines 


1 


.SBTTL OUTPUT ROUTl 

2 



3 

0 • OPEN * 

•init link 

4 

TRY2 1 

movb SeRies*fnam 

5 


, bin2d buf* number 

6 


MOV «FNAM+1*R0 

7 


CMPR BUF+3v«b0 

8 


BEQ 1 4 

9 


MOVB BuF+3* (R0J +■ 

10 

1$: 

MOVB BUF f 4*lR0>+ 

U 


CLRB <R0> 

12 


- 

13 


• R ADPK FNAM 

14 


MOV (SP)+,FIlE 

15 


TST (Sp)+ 

16 


CLR FILE+2 

17 



18 


INC NUMBER 

19 


CMP NUMBER. »100. 

20 


RLT 24 

21 


MOV 81, NUMBER 

22 


INC SERIES 

23 


cmpr Series. » f z 

24 


BLE 2$ 

25 


MOVR n *A* SERIES 

26 



27 

2$ s 

.OPENO LINK *F ILE 

28 


MOV 81, STATUS 

29 



30 


MOV 81,IDC0DE 

31 


TST CBLOCK 

32 


BPL 3$ 

33 


MOV 84 , IDC ODE 

34 

3$ : 

.WRITE LInK.iDHEAD 

35 


.wait link 

36 



37 


JSR PC,CRlF 

38 


JSr pc,fmsg 

39 


CLR FNaM+6 

4 0 


print FNAM 

41 


mSg < • d at> 

42 


JSR PC.CRLF 

43 



44 


TST IFLAG 

45 


BMI 44 

46 


mSg <IdEnt: > 

4 7 


PRINT IDBUF 

48 


JSR pc*crlf 

49 


COM IFlAG 

50 



,51 

4$: 

TST CBLOCK 

>52 


BPL 54 

53 


mOv 82, code 

54 


JSR PC, write 

55 


CLR CBLOCK 


:PICK UP THE series letter 
:Encode the number 
•point To next char loc 
sis THERE A LEADING 2fRO^ 

•if so, skip it 

:IF NOT* USE DIGIT FOR FILENAME 

•last digit always appears 
•insert a TRAILING null 

t R ack filename in radix-s0 
iResult is returned on the stack 
•SO IS a status word 
•filename has only 3 chars 

!SET up number for next TIME 
{ONLY 2 DIGITS .ALLOWED 
:IF OK, BRANCH 

!lF TOO BIG* RESET IT To UNl T Y 
! AND CHANGE SERIES LETTER 
•IT MUST BE AN ALPHABETIC ChAR 
•BR IF LEGAL 

•OTHERWISE* RESeT IT TO *A! 

: OPEN DATA FILE FOR OUTPUT 
•1 MEANS OPEN FOR oUTpUT 

•1 IS THE CODE nUMrLR FOR IDENT 

! unless a comment follows 

jTHEN 4 Is The IDEnT code 
•WRITE OUT IDENT STRING 


•PRINT <FiLE NAMES > 

•filename 


•HAS IDENT PrEvtOUSLT BEEN PRINTED? 
•IF SO, BRANCH 

•PRINT IDENT STRING 

•MAKE flag negative 

! IS THERE A COMMENT? 
tIF NOT* RRANCH 
! "COMMENT" CODE 

sWRite out Comment 
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RECORD MACRO VR05A 10-APR a 74 0i:4g PAGE 4 
OlJTPuT ROUTINES 


1 

5$t MOV 

UNPOINT * R 1 

•1ST word In param block 

2 

MOV 

ODATA.R2 


3 

MOV 

Bl4l*iR0 

•TOTAL WORDS IN PARAM BLOCK 

4 

MOV 

R0 * NWORDS 

•STORE IT IN FRONT OF PARAMS 

5 

jSR 

PC .SHUNT 

jMOVE param block to data buffer 

6 

MOV 

«2a6* * Arc 

•byte count 

7 

MOV 

#3 , CODE 

•PARAM BLOCK code WORD 

8 

JSR 

pc. write 

♦WRITE out PaRAM BLOCK 

9 

RTS 

PC 


10 




n 




12 




13 




14 

o.dati: mOv 

» CODE 

•-1 MEANS 1ST DATA BLOCK 

15 

MOV 

NPOlNT * NWORDS 

j NO . OF DATA WORDS IN RECORD 

16 

RR , 

.+6 


17 

o-data; dec 

CODE 

jNEGATiVE of line number 

18 

MOV 

NPOlNT » ABC 

i GET WORD COUNT 

19 

add 

»2, ABC 

•INCLUDE CODE WORD and POINT COUNT 

20 

ASL 

ABC 

iDOUBLE IT FOR bYTf COUNT 

21 

JSR 

PC. WRITE 

•WRITE OUT DATA RECORD 

22 

RTS 

PC 


23 




24 




25 




26 




27 

CLOSE: .CLOSE LINK 

! CLOSE FILE 

28 

.RLSE LINK 

: RELEASE dRIvER 

29 

NEG 

status 

: INDICATE "CLOSED" 

30 

RTS 

PC 
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RECORD 

macro vrb5a 10-apr“Z4 ^ 1*^0 page 

5 

OUTPUT ROUTINES 



1 

WRITE: 

ADD B2,ABC 

•count fortran code word 

2 


tSt iomodf 

•is ftn-type output required? 

3 


BPL 2$ 

! IF IT IS, BRANCH 

4 

IS: 

.WRITE LlNKfHEADER 


5 


.WAIT LINK 


6 

7 


rts PC 


f 

8 

2$ ; 

CMP ABC * n l24. 

:WILL DATA FIT iN ONE RECORD? 

9 


BGT 3* 

•if not* rRanch 

10 


MOV «3*FtnC0D 

•if so. Indicate ist - and-last record 

11 


bR is 

: AND WRITE IT OUT 

12 




13 

3$: 

MOV «1*FTnC0D 

slNDlCATE 1ST record 

14 


mov Arc * b c n t 

:STORE TOTAL BYTE COUNT 

15 


MOV & 12 4 • » ABC 

: 124 BYTES PER RECORD 

16 


.WRITE LINK*hEADER 

•WRITE OUT 1ST RECORD 

17 


.wait link 


18 




19 


CLR FCODE 

: 0 indicates intermediate record 

20 


MOV 8124 • *BPERR 

•124 BYTES per record 

21 


MOV »HEADFR+i 22. >POlNT 

•HEADER FOR next RECORD 

22 


BR 5$ 


23 




24 

4$ : 

J5R PC *WRT 

•write out the next record 

25 


ADD «1j»2., POINT 

:Header for next record 

26 

5$ : 

SUB «122*»BCnT 

•GET REMAINING BYTE CO^NT 

27 


CMP BCnT*«124. 

•will this be last record? 

28 


BGT 4S 

•IF NOT* BRANCH 

29 




30 


MOV 82, FCODE 

indicate last fortran record 

31 


MOV BCNUBPERR 

jSIZE oF final record 

32 


jSr pc,wrt 

•write out final record 

33 


RTS PC 


34 




35 




36 

wr t : 

JSR PC * SAVE 

•save dATa points* set up HEADER 

37 


MOV BPER R * 4 t R 1 ) 

•actual byte count of record 

38 


MOV FC0DE*6<Rl> 

•FORTRAN RECORD CODE 

39 


EMT 2 

! .write 

40 


.wait LINK 


41 


JSR PC, UNSAVE 

♦restore data POINTS 

42 


RTS PC 
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RECORD MACRO VR 05 A 10-APR-74 ^1*^0 PAGE 6 
INPUT ROUTINES 


1 .sbttl input routines 

2 

3 T.OPNPJ COM INDEX 

4 I. OPENS .INIT link 

5 jSR PC,FILNAM 

6 I • TR Y 2 • .OPENI LINK*FNAME 


7 


TST 

index 

8 


RPL 

13. 

9 


JSR 

PC « I • ID 

10 


jSR 

PC * I *PRM 

U 

i* • 

CLR 

status 

12 


RTS 

PC 

13 




14 




15 

I .DAT1S 

COM 

INDEX 

lb 

I ‘DATA s 

JSR 

pc, read 

17 


TST 

code 

18 


BPL 

2$ 

19 


RTS 

PC 

20 




21 


TST 

ABC 

22 


REQ 

3S 

23 


TST 

index 

24 


bmi 

I • D AT A 

25 


BR BADREC 

26 




27 

3$ t 

BIT 

440000 *MODE 

28 


bne 

4$ 

29 


MSG 

<endfile found> 

30 


JMP 

MON 

31 




32 

4 $ ; 

CLR 

ecode 

33 


MOVB mode+i *ecode 

34 


.BIN20 STAT*ECODE 

35 


MOVB »40*STaT+2 

36 


msg 

<UnSUcCESSFuL read 

37 


PRINT ST AT +2 

38 


JMP 

mon 

39 




40 

badREC : 

MSG 

<can*t read record 

41 


JSR 

pc *crlf 

42 


JSR 

PC , CLOSE 

43 


JMP 

MON 


*-l ASkS for params 

:INIT THE DATASET 
•GET FILENAME 

•open the input file 

•MUST PARAMS BE read? 

•IF NOT* BRANCH 
•VERIFY IDENT STRING 

i R ead in the params 
;0 means opened for input 


J-1 FOR 1st data record 

• read a record in 
•IS IT A data RECORD 
•IF SO, BRANCH 

•if not* return 

♦check byte count 

• br if zero 

: HAS data ALREADY BEEN READ? 
•IF not* read another RECORD 
•if so, bad record 

: TEST EOF BIT 


•get status byte 
: convert to oct a l ascii 
•insert a space 
* STATUS byte> 

•PRINT STATUS BYTE 


- wrong format> 

•close the file 

•EXIT DIRECTLY TO MONITOR 
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RECORD MACRO V R05 A 10-APR-7 4 0i;4 0 PAGE 7 
INPUT ROUTINES 


1 

REad: 

.read LlNK*HEADER 

2 


.WAIT LINK 

3 


tst 

1 omooe 

4 


BMI 

5$ 

5 




6 


CMP 

FTnC OD * ** 3 

7 


REG 

5$ 

8 


CMP 

ftncod*»i 

9 


BEQ 

2 $ 

10 

1*1 

JMP 

BADREC 

11 




12 

2 $. 

MOV 

OHEADER+122. , 

13 

3S : 

JSR 

PC, SAVE 

14 


emt 

4 

15 


.wait link 

16 


mov 

POINT, R1 

17 


TST 

6 (Rl > 

18 


BNE 

4$ 

19 


JSR 

PC , unsave 

20 


add 

ttl?2 • , POINT 

21 


BR 35 

22 




23 

4$: 

CMP 

6 T Rl ) ,«2 

24 


rne 

1 $ 

26 


JSR 

PC , UNSAVE 

26 

55: 

RTS 

PC 

27 




28 




29 

save : 

MOV 

(Sp) + ,R0 

30 


MOV 

POINT, Rl 

31 


mOV 

(Rl) »-<Sp> 

32 


MOV 

2(Rl) ,-<SP) 

33 


MOV 

4 (Rl) ,*(SP) 

34 


MOV 

6 (Rl) ,-(SP) 

35 


MOV 

»lp4 « , (Ri ) 

36 


MOV 

«i ,2.(R1 ) 

37 


MOV 

Rl , - ( SP ) 

38 


MOV 

«LINK*- (SP) 

39 


MOV 

R0 , PC 

40 




41 

unsave : 

mov 

( Sp) + ,R0 

42 


MOv 

POINT ,R1 

43 


MOV 

(SP) + » 6 ( R 1 ) 

44 


MOV 

(SP)+,4(R1) 

45 


MOV 

(SP)+.2(Rl) 

46 


MOV 

< SP ) +, ( Rl ) 

47 


MOV 

R0,PC 


:REaD a record IN 

•is ftn*type input required? 

•IF NOT* EXIT 

! was it the only record? 

•IF SO, DONE 

: WAS IT 1ST FORTRAN RECORD? 

slF SO, continue 
:IF NOT* ERROR 

•header FOR next read 
:SAVE DATA* SET UP HEADER 
J -READ 

! "point" contains header ADdR 
: DO MORE RECORDS FOLLOW? 

; IF NOT* BRANCH 
tRESTORE THE DATA POINTS 
sADDR of next HEADER 


jwas that the last record? 

j IF NOT* ERROR 
♦RESTORE THE DATA POINTS 


•PUT RTS ADDR IN R 0 

•POINTER TO LINE BUFFER HEADER 

tSAVE 4 DATA WORDS ON THE STACK 


iMax size of The buffer 
•FORMATTED binary record 
•START EXPANSION OF -READ 
• OR .WRITE MACRO 
•RTS 

t PUT RTS ADDR IN R 0 

•start of corrupted data 
•restore 4 data words 
: FROM THE STaCk 


!RTS 
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RECORD MACRO VR05A 10-.APR-?u 01*^0 
INPUT ROUTINES 


1 

filnam: 

JSR pc.fmsg 

2 


MOV »12* *R 0 

3 

its 

CLRB FnAM-1(R0> 

4 


SOB R0 • 1 * 

5 



6 

2$ j 

JSR PC, CHECK 

7 


CMP R0.»6 

8 


BNE 3$ 

9 

5$2 

jMp QM 

18 

3$ s 

TST R0 

11 


BGT 4$ 

12 


TST num 

13 


bPL 4* 

14 


BR 5$ 

15 

4$ * 

MOVR R 1 * FNAM ( R0 ) 

16 


INC R 0 

17 


BR 2$ 

18 



19 

DOT : 

CLR R 0 

20 


CLR ENAM 

21 


CLR ENAM+2 

22 

l*t 

JSR PC * CHECK 

23 


TST NUm 

24 


BPL 3$ 

25 

2$t 

JMP QM 

26 

3S • 

CMP R0, «3 

27 


BEQ 2$ 

28 


MOVR Rl *ENAM(R0) 

29 


INC R0 

30 


BR IS 

31 



32 

PACK* 

.RADPK FNaM 

33 


MOV <SP)+,FNAME 

34 


.Radpk fnam+* 

35 


MOV (Sp)+*FNAMEf 

36 


.Radpk enam 

37 


MOV (Sp)+«FNAME+ 

38 


add 86, SP 

39 


RTS PC 

40 




PAGE 8 


•clear fnam*enam 


•GET AND CHECK CHAR 

t t oo many chars? 

: IF NOT » BRANCH 

•is this first char? 

•IF NOT* BRANCH 
•IS IT A LETTER? 

•IF SO, BRANCH 

•STORE THE CHAR 

: and Count it 

•then get another 


•GET char FOR EXTENSION 

•is it a digit? 

: if so, that*s a no-no 
; too many chars? 

j store the Char 

• AND COUNT IT 

• then get ANOTHER 

: PACK 3 Chars IN R AD IX “5 0 
tRESULT RETURNED ON STACK 


;3 extra WORDS WERE LEFT On STACK 
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RECORD MACRO VR 05A 10-APR-7 4 0i!4« PAGE 
INPUT ROUTINES 


1 

CHECK s 

CLR 

NUM 

2 


JSR 

PC *RDCHAR 

3 


CMP 

Rl,«3 

4 


BNE 

IS 

5 


JMP 

MON 

6 

1$; 

CMP 

R 1 f 0 1 7 7 

7 


RNE 

2 S 

8 


T ST 

( SP) + 

9 


JMP 

FIlNAM 

10 

2% * 

CMP 

R1 »«lS 

11 


BNE 

3S 

12 


TST 

(Sp) + 

13 


BR f 

3 ACk 

14 

3$ ; 

CMP 

R 1 « ft 5^ 

15 


bne 

4$ 

16 


TST 

(SP) + 

17 


BR DOT 

18 

4$ * 

CMP 

R1 5 0 f z 

19 


BGT 

qmaRk 

20 


CMP 

ri.«!a 

21 


blt 

5S 

22 


RTS 

PC 

23 

5S • 

CMP 

Rl*» *0 

24 


BLT 

qmaRk 

25 


CMP 


26 


BGT 

QMARK 

27 


COM 

num 

28 


RTS 

PC 

29 




30 

gmaRk s 

TST 

(SP > + 

31 

QMt 

TSTB TpS 

32 


BPL 

• “4 

33 


movb «»?*tpb 

34 


JSR 

PC*CRlF 

35 


JMP 

filnam 

36 





9 

: NUM IS DIGIT FLAG 
•CTRL/C? 

! EX I T TO MONITOR 
rRUBOUT? 

•POP ThE rts ad dR 
: AND start OVER 

iCARRUGE RETURN? 

jFIlENAME complete 
•DOT? 

•GReATfR THAN ASCII 
sAT LEAST ASCII "A" 


s-i indicates digit 

•POP RTS aDOR 

sprint a 


and start over 



RECORD MACRO VR 05 A 10-APR-74 PAGE 1? 


input Routines 


1 

I. ID* 

JSR 

PC, read 

2 


CLR 

FLAG 

3 


CMP 

CODE * »4 

4 


BEG 

It 

5 


CMP 

CODE *0 1 

6 


bne 

4$ 

7 

1* J 

MOV 

«DATA ,R1 

8 

2$: 

TSTB 

TPS 

9 


RPL 

• *4 

10 


movr 

(Rl ) + * TPB 

11 


tstr 

t R 1 > 

12 


bne 

2S 

13 

3$ • 

rts 

PC 

14 




15 

4$ : 

msg 

<No IDENT string? 

16 


jsr 

pc,crlf 

17 


COM 

flag 

18 


M5G 

acknowledge? 

19 


JSR 

pc,rdchar 

20 


CMP 

R1,«!k 

21 


BNE 

3$ 

22 


JSR 

PC, CLOSE 

23 


JMP 

MON 

24 




25 




26 

I • P R M : 

TST 

flag 

27 


bmi 

2* 

28 

1$: 

JSR 

PC , READ 

29 

2*: 

CLR 

flag 

30 


CMP 

COnE * »3 

31 


BE Q 

3* 

32 


CMP 

CODE *02 

33 


REG 

IS 

34 


mSg 

«CAN!T FIND SCAN 

35 


JSR 

PC ,CRlF 

36 


JSR 

PC , CLOSE 

37 


JMP 

MON 

38 

3$ • 

MOV 

0-1 *seTdun 

39 


MOV 

ODATA ,R1 

40 


MOV 

0l4l • *R0 

41 


MOV 

ONPOINT *R2 

42 




43 

SHUNT: 

MOV 

C R 1 ) +, (R5») + 

44 


SOB 

R0, SHUNT 

45 


RTS 

PC 


•read A RECORO 

:4 IS iDEnT code IF comment follows 
•SR IF IT IS IOENT STRING 
jl IS IDEnT CODE tNO COMMENT) 

♦IF NOT IDENT* BRANCH 

•chaR pointer 


•WRITE IDENT STRING ON TERMINAL 
•CHECK FOR NULL BYTE 

•if not null, send the char 


•*1 MEANS IMPROPER RECORD 

:INPUT A CHAR 
•K FOR KILL? 

: I F NOT* BRANCH 

•IF SO, CLOSE THE FILE 

: AND EXIT TO MONITOR 


•has bad record been read? 

• IF so, "read" is UNNECESSARY 
•READ A LOGICAL RECORD 

•IS IT PARAM BLOCK? 

: IF So, BRANCH 

•is it a comment? 

•if so, read another record 

PARAMETERS? 

: IF SO, CLOSE ThE FILE 
: AND EXIT TO MONITOR 

•this constitutes a complete setup 


jTranSfer scan parameters to 

• PROPER LOCATIONS 
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record macro vr^sa i®~apr^74 0 i : 4a page 11 

DEVICE CONTROL ROUTINES 


1 „SRTTL DEVICE CONTROL ROUTINES 


2 


3 

EOT 2 

MOV $2 o R 0 

4 


BR EOF+4 

5 



6 

EOF 2 

MOV 9 R0 

7 


t St status 

8 


ble 1$ 

9 


jSR PC o C LOSE 

10 

\%i 

MOV BEFoSF 

11 


jSR PCoENTRY 

12 



13 

Rewinds 

MOV ®1 o R0 

14 


MOV 8 R w # S F 

15 



16 

Entry ; 

tst device 

17 


bpl ILLCMD 

18 


. init link 

19 

1 % : 

MOV SFo-tSP) 

20 


MOV #LlNK*~<SPJ 

21 


EMT 12 

22 


SOB R0 « 1 1 

23 


a RLSE LINK 

24 


rts PC 

25 



26 

ILLCMD ! 

jSR PC c LEG AL 

27 


MSG <On MaGTaPE> 

28 

RTNS 

JSR PC,CRLF 

29 


jmp mon 

30 



31 

Arg s 

jSr pc, legal 

32 


mSg <after output? 

33 


br RTn 

34 



35 

legal 5 

mSg <only legal > 

36 


rts pc 

37 



38 

type s 

TSTr tRl j 

39 


BNE 1$ 

40 


RTS PC 

41 

It 2 

TSTB TpS 

42 


BPL ,“4 

43 


MOVB IrI > + » TpB 

44 


BR TYPE 

45 



46 

FMSGS 

mSg <file name* > 

47 


rts pc 

48 




’WAS LAST OPERATION "OUTPUT" 
S WAS RILE closed? 

’IF NOT 9 CLOSE jT 
’POINTER TO EOF BLECK 

sExecute special function 


•pointer to rewind block 

•IS IT MAGTAPE? 

•IF NOT* BRANCH 

•expansion of •spec 
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RECORD MACRO VR05A 10-ApR*74 0 1X 4 0 PAGE 12 
ERRO ’ PROCESSING ROUTINES 


1 


. sbttl error PROCESSING ROUTINES 

d 

3 

errorl : 

mSG <BUFFeR space not 

available> 

4 


jSr pc * c rlf 


5 


JMP MON 

•EXIT TO MONITOR 

6 

7 

ERROROI 

CMPB FILE-1*»2 

: F IlE aLREAOY EXISTS? 

a 


rNE is 

•other problems ARE Fatal 

9 


JMP TRY2 

j but a new name is A V a i 1 

10 

IS: 

MOVB FlLE-ltECODE 


n 




12 

EMSG • 

msg <data file cannot 

BE OPENED “ ERROR CODE > 

13 


MOV tt»» W 0*ERRC 

: GENERATE ASCII ERROR CODE 

14 


BIT «l0*ECODE 

* 2 - D I Gl T NUMBER? 

15 


beq is 

• If not* branch 

16 


INC ERRC 

•IF SO. MAKE HIGH DIGIT "1 

17 

1$: 

BIC «l777?0tECODE 

•LEAVE ONLY LOW DIGIT 

18 


BlSft EcODE*ERRC+1 

• C RE A T E ASCII 

19 


JSR R5.MESA6E 


20 

errc: 

0 


21 


.byte 15 * 12 * 0*0 


22 


JMP MON 

•EXIT TO MONITOR 

.23 




24 

ERrORF : 

CMPB FnAME*1**2 

: c an 1 t find file? 

25 


bNe is 


26 


MSG <CAN!t find F!lE> 


27 


JSR PC*CRLF 


28 


MOV «I ,TRY2*- (SP) 

•create an rts aDDR 

29 


JMP FILNAM 

•ASk FOR NEW FILENAME 

30 

1$ • 

mOVB FnAME“1«EC0DE 


31 


bR emsg 


32 




33 




34 




35 




36 


.sbttl link and filename blocks 

37 




38 


ERRORL 


39 

L INK X 

0*0*1 

•link block 

40 

DEV : 

0 


41 




42 


ERRORD*0 


43 

filex 

0*0 

•data filename block 

44 


•RAD50 /DAT/ 


45 


0 * 0 


M6 




47 


ERRORF*0 


48 

fname 2 

0*0*0 

•INPUT FILENAME block 

49 


0*0 


50 




51 

RW • 

.BYTE 3*3 

•rewind block 

52 


0*0*0 


53 




54 

EF: 

.BYTE 2*3 

•endfile block 

55 


0*0*0 
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record macro vrb5a ib-apr^Iu 0i*4a page ip 
parameter storage 

' 1 .SBTTL PARAMETER STORAGE 

2 

3 BUF : • BLKB ft 

4 FNAMJ .BLKB ft- 

5 enam: fjt0 

6 NUm t 0 

7 INDEX: 0 

8 ECODE: 0 

9 device: 0 

10 FLAG* 0 

u status: 0 

12 SF: 0 

13 bcnt: 0 

14 BPERR: 0 

15 FCODE : 0 

16 POINT: 0 

17 SERIES: .AScIZ /A/ 

18 number: i 

19 SPACES: .byte 40*40 

20 DKi .RAD50 /DK/ 

21 MT: .RAD50 /M-T/ 

22 STaT: 0*0 10 *0 

23 

24 HEADER: 24006- 

25 MODE* 1 

26 ABC* 0 

27 FtnCod: 0 

28 CODE* 0 

29 NWORDS* 0 

30 DATA* .BLKW 12000- 

31 

32 .End 
errors detected* 0 

FREE CORE* 1 196ft • WORDS 
*RECORD.L2 /NL:TTm:SYM*bIN:LOC<RECORD 
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